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ETD, Wile copy PF CILA—- FLTH SWRA. FCA RLTHSICE DY 
boFa—FLMF EVs 5 MALES. 
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end 
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KP AELES. 

BasicDIN PAF AFAIINAA- PRT, FaTFTr Ah & lA 
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BIES, END, AVY FELTIZTHEYTFIRCTCAMLAEOLHWOR 
WE LETMIEE) ETA, 
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WRLEET 1, KREME CARLES, EK EOIVY FA BasiclIn7F 
HE ARR a RNR GR Re neae 

LL CO PRPS LEBEN HIS ET SCL DATHET HT. RRM ARIS 3 HE 
TUNES. 

BasicDIDN 727 F Ala WRIT NSHERO 1 - Code EV a—WPSHRSNLET, 
tHeobaAVvY REL THRNT 4 LARD EVY a—WBA EY EV a—N ie GH 
SHEbHICT. Hh ¢ 4%. PROCEDURE $= CE PMEVaA-WVELTHI 
fFEL TLEIDTT. 

VAIL CIMA DEY a WICKMLT 25 6754 LHD LEVEL EN 
BDC E 1) WHET HO TLEWVES. (VN 2 Cdk F- VIEL TRUE 
MEBKISAE LEAD.) 

BasicDINEVa—-N{bldh 57 LOMOMMLELET, RiThicay ba-w 
EX ESA THLE DELAR, SSW SPOLI—CHlf LR Vv 
COPD EV aN E') bIRoTLEGCEBHIV EF, Cris, PL 
THE COU VIADY bRBRACHWEYVa2—WVisHRSnNE PS THF. 
TEL, SEVICHMHES RE TH (VDE) GOMALA YD EA, 


SC, BasicNls be EEV AFAR AVY FOMMORHDIC(ESLNRABC 
IZEWIAC, ENE AVGY FRMOR MIMI ITZ 44 & MMH NET, 
EV a MAGE HUE SHES DIST NL ERA Lela, A ER ZZ Ze 
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ClLRRT RV TFEMBBRSE SLicHMEIT ON THY, ERRMHOA 
Dit Clk} BHED BOC LIE, BS DY AFACEBICUN I Xd THOS 
CEMHdRASENTHET, 

CHOTUTF FAH SLWSZOS (0S9/68000, UNIX, MS-—DO 
SHER )ABHT SLCEBRACH), COMDERAATCT. (EAE DTFU 
PF LIAO EB DUBE LEXA.) 

clear &C Catubk LET. 





#incilude <stdio.h> 


main® 
{ 

putchar ( OxOc ) 3 
) 





Cle IY ON VOSA OME L THY, HEF o ABIL TOS FAV 
CHEF, KRMALDUAIFTOMREMY AZT SWIC HY EA, 
PE LT APA MEMIEST SBE Ha TAES. MMED 4 7 FO unlink & 
lL LACT.) 





delete ¢ p ) 
char xp; 

( 
char qf81]5 


strepy(.q, “del’” )3 
strcat( q, Pp )3 
system( q )3 





system PYBC% HE 2 Lic ko TLewENI Hic delete FSC EMWCEELRA. 
lWARIZ, system FH ZIF (Aer PRHASVO(E) TRTKHMCKEF, CO 
deletec FY VAIPUITY BT-PINATV 27 bICMEL. F477 3) 
clib. 23 (merge FS 7214) L TBUIFLRIS AEA E Bore <A 
CHEF, FTORILPELTIEONCHA CHA, del HUI LOA ANA y 
b SHES S 2c _os9BMS oR bDEoTAET, 





#include <os9.h> 


int delete( p ) 
char *p3 
( 
struct registers reg; 


reg.rg_x = pi 
return (¢ _os8\ I_DELETE, &reg ) 03 





LOBHR—DPIEB LEVEE 6 EVOIs, system (LEMAR CH 3 TB 


089d ZS 5 TlH EWICETH. 
PRMEBSR Ll E 5 ic delete FHMMRRLOOLHIZ, BMRPSTRY TF Cie 
LTB EWA HAVET. 





psect delete_c,0,0,0,0,0 
nam delete.c 
#asm delete: 
delete: Idx 4,6 
Idx 4,8 os9 1_DELETE 
os9 |_DELETE bes dell 


bes del! cira 
clra clrb 


cirb bra del2 
bra del2 del1 
deli clra 

cira std errno,y 
std errno,y Idd #-1 

Idd #-1 del2 
de!2 rts 

rts endsect 


#endasm 


#include <os9.h> 





HlECDVY—-RELTIYANA NG ABR AlkTRYTF camAY—-AL 
LTFRYTINVISZBACT. 
WLEOWSF LEAs T b lal CPRRED ADS CEES, 





SC, CKEAFOME RAS DET, 


L, DANA VICI DDD 4 © 
2, PAF IAVA SPBKEC EA, 


DYNA WMIZRW SHE Dw, Child, FIUP Rev tPEVYAE 
CEMT TANARIS, SAC LICHNT TA VEM OTR SROTT. CD 
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BEHETE, RAM ORM ES AZNMIFLPROZWVCECLEG. BHAIFY 
EY) (VNV2CCESMA-FLTPORAMFY AZ HE) CHAT RUE 
DY ABQ SKB 650 DPN ET, TA y EN-—ARGH 4-55 PEED 

SOW De 

PAT PAA RB (PRY TF CH BREENT) PHEVKEC BNET 
DCVAWVIDEDI XL EYVODPEVYV AFA CLM HS SDPO UNERA, 
CDAY—bP vy TV—-F v cstart DHA CHP, CLL, REMEBER > Ze 
QDKEWCEMAACL ES. 

PILI PRYVT PRR b CHELOMCKREME DIY bICHOTL 
EWVETS VNVIDEDI, REVODEWYAFATHIT ATF IAVA AB 
VRMIZ IL & LIE AEA. : 

LELTAF FA ROM NICMBL OST ATF AVERORDOO FH 
&, (S6MEZHIS) MAF) BLU EB OROOFNCTH, Chisd 
MELWOETIIHA) HA. MALFoR TUF FAB AMMCE ELV 
PBS ME SIZE LRG LMA EWGCECH., SBLIAMAVY FORT 
vave LP Ley CRORE Ce OMMICCAETA, PRYTIT 
(LB 6 DH CRAM ERE TAB L Ze lF ITH KA. 


I— | —$5 PRLS 


FELT CORT AT PIAL, BH, NAW A BWERb ee TET FZ 
ABH SES £17 A CILMMA ME BROT ERA, WC, BHD MEL, HR 
LDS AE, RSP PRE SKE CGR ERO TOES. HIST evT7T7 ua 
TP L OMMFENNLARAM SERPS SHEARED, PVF L-PRCP 9 TF 
HEMAOL— PICARD DY ET, CHld— FIRB SOY AFA CIS 
TLD ECT, 

#72, FMY) -—XDOS—-9/6 8 0 Vic MRO BBs rev TF & Basic09 
D2ZISF AM, Basic09 CE Y AF AICIEV MAD FLU DA HY HE Ze 7H, Perv 7 
FECES SZ EGEEOWAL HS VES (SI ZIETFI7 4 » TIMBRE ICT.) 
REL, CRT BasicDIN GA V-FvVEV aes CLEC ET, 
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muh 
pa] 


ST, Fev7AF7Cclear +R LTAKT. 








00001 bottcetestestestesetsttcsts sete t est se tees 
00002 x 
00003 * clear -~ clear screen 
00004 x 
00005 
00006 ifpl 
00008 endc 
00009 
00010 0000 87CD002D mod Size,Name,Prerm+Objct ,ReEnt+1,Entry,Mem 
00011 00O0D 636C6561 Name fcs 7clears 
00012 0012 O1 fcb 1 edition number 
00013 oocs Mem equ 200 
00014 
00015 0001 STDOUT equ 1 
00016 
00017 0013 Entry equ x 
00018 0013 860C ida #¢0C 
00019 0015 3402 pshs 6 
00020 0017 1F41 tfr S yx 
00021 0019 108E0001 Idy #1 
00022 001D 8601 \da #STDOUT 
00023 OO1F 103F8A osg 1¢Write 
00024 0022 3261 leas 1,8 
00025 0024 2501 bes exit 
00026 0026 5F cirb 
00027 0027 103F06 exit os9 FSExit 
00028 
00029 002A OBOC6E emod 
00030 002D Size equ x 
00031 end 
YL# ANF, clear PEOIVY FU OIFKTAMELAMICT SA CE APOE 


BIRR EVI CEMAPSCLED. ERATV ST bE bRMOETFLRE 
LTSILEAERURMS DEA. KMROIvy FORMICHE ARC, AE 
BRA RIMES BMRB EVOBIEEA ETH. 
ENRBLOI, FNyYTRTECKET SMMC BACT. TRVIFES 
ZTCHUIAT ZDIZ, FNICAHAIRUDLOMWEMT S EVI WiAAD HRV Y 
SHETRARBEWCLED. FLTHIKVDENTILHSLVOR, the P BEE 
DBE H BVT AED CHSRPEILPTCT. 
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WEE COM C, ECORMOLCOLI“CRMCMMeHbS, COLIGEH 
MeDIHMiTLVPBawyoT SETTLED. THHERBELZKEELC. YOSH 
BRA GLWMPESLZSCEICLET, AVY FRBLOT {NIELS CLE 
MEIC LTRZCERENEWTIC REL, 

KTVAICHDAIMITE SERVE, OS—9IEKBICLAKEDAZOST 
HZEWICECTHF, DEY, LEV SHOCTTMC TH, ELRTEREOT 4 XZ 
DEBT NIZED DEGAS ESZODCT. COMIMWOVA AYR SH 
AYONOS KM ONE OHETT. 

LRM oT. VAFASMICHI MIC Lot, ERISARPOVATFAME OR 
EOLDNCH SD, HSWV1MGKEOMEICT S060 WIC koT, AVY FO 
BT IT Et DBE dd aT ¢ SMRELED A ZOCH, 

VAVIC7T AY ER-AZDYAFARE, SEV MROAME AME IS 
LIED, POF FAVA REPS TFACEMRMRMHLEIET. CCI 
FAUT IFAVA AMBRE CGZSL, E72 Runb & MHS SCE DHL O Cif 
ly Pe YT AIMS SSERLEtA, 

VNV2CALEVICRBABASZY AFAR L, RunbF HHSC ATCEBCA 
ETOCIVY FR Basicl9CHMCS, K}-PUCOXE!) HAMEED S (TS 
RAL, RTMELAV-Py bOrAEOOMCHET, 

FEueIVvyY PePevVEicBer TH. CEMENT, Shell POY Ys? 
WADIA VOFAIORBICVEWVHQ-FULES TChRUVOT, IWWAME DE < 
reall as 

ER, bLOS—I9/76 800 0RMAOS ha TASZDONEETATF 
L DAGHEME 2 eA Le FTE OF, Perv TPs ols PwhZFtA. TOK 
HCH CLITZSTLE FD, 

DEOL GER C. SIME LCI Sey PRETETREDBMACT AR, 
ASH Cid PAE ee nT SCL eR LT Siem, AME, RTE 
BLUREPEDIB Ter 77 ERAT OD HET, CICEIRG I THES, 


a PRARWN ISH 13 
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AVY E (FAWMISOBOT) (ls PONG XR-HPRYRETG, WD 
A-PEL CRE ES HONADIZTIFANATCT. 


OS9 : list filel file2 file3 


E LRH, file!’ t file2’ &’file? tad 3WDNFA—-—IRHZSENKIOL 
MEARCSET, 39D, EPPZDIIBAR NAL -SORWIiEHeET 
BPH) EAA, 


OS9: west 0, 0, 80, 25 


MMA ee RW) EMAL TRET, 

Jl, CHEMNIASY PICMSNADSE "RW. B—HIS LZ MME MD 3 
FAL IIT SERVANTS, (RWI) KOO, EL CHMRL TM SZO0ls3ae 
YEFAFZOTCS, CHOP Cit wset 21d’, 0, 80, 2° EWI MEM AYESHET, 

IVY RILET INI AL —F RMT SZ CEP HOMO EIINIEE) EA. wset 
DPHIL, NAPXR-POMMABILEA ER HOTTIES, 

OS-IDRWTOsayyY Flt, FAL AV VOMAe dice-NU-IYCH 
BERET VIOBZVONCTMR, ZALPMMLEOEDEZ HVE, BIZ 
(X, wset (SMA eM e LY, list (SAMAR KWOELET, 

CCI AMINICBA LC IY Vee NU-PERELET., Be main ic-NF xX 
—PRESHRE SIL, FCCKMSENRKFRMBESLETOC, A-F 4 
LT OBLAST SUBS HY EAA, Basic09 Cli7K¥CMNS EG IZ, ADC 
XU) SPO YES OES, 





BAe KW NRODE YP AIAI EL THoTLEDE, ME FIND HH 7 A 
BORVYOIND ET, ZOWHEIST V7 4--— bh ERM YVAN + — b OK 
ENE. SC SCEICLEL ED. RRLITNZ + — ) CHE ORM PM, B 


USTIVLZ ¢—-bPEbNSWMPEOL (end of line) ETHEL. Picyyv7 
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M7 A-bEEATIT OH EtA, COMBYY INI +— blIKWI OR 
KERVVETS YYTVZ t— b CHESWRAINLS TU + — bE RI 
SH 

ZCNEOS — IDCAT 2 TW SMRORECT OS, AHECLAME BD Fiz 
COMBMICFED CEICLET. 

pels, COLI LHKE bOTLT A, Shell DFM 4 FTI ENF RL—PY 
DHICEMOSCEMBCALZVLWICETH, (5 & 14) 

Shell VUE A4 YOMRMOPRI CIS, HIS LNA PF OFMA TTY eB 
LUMS,FCECTHIIOMNAVY FELTLEGHSTH, Chis Shell FBS 
LEVURMVISZAL ERY) FA, 


[22 27 AJeme a oS a 


AVY RICMTSNAA—PlL, TEANRTHSA CEB ZW SHH, Z 
MUS. PAIS dir IVY RD" eC"APY avOLZle avy KicKHt Sm 
WINCH SYAMH YES, 

IVE, FRAMBEUP AVA bYEDOLEI IT TANS, Enlimors 
YFICMT SHARON LE IAPY avy EMUET, 

APY a VALU MRS HE THY. AME LE RII DD GWG aS GZ 
4n4Zi GK IVY FERHLET, 

STIVYENGL-VELTIFANBEATY 3 YOM OS 2 ONT 
B TPANMECHOEDATY ar CHE DERITS HEMEL KH 
AM, SMIL208 ZENEF. 

EF. NAAFI HE CRIT SHU, PAZIF dir Sls, 


OS9: dir tempdir e 


DEVI B-NDR-PELTHAVIbYVARIBR, BIZ X-PELT 
"Ee" AP Yar eis c MEMICROTLEGCETH, COBA, 


OS9 : dir e tempdir 


AVY ENGA—9 15 


DEDGLONTENECA, 

COREL. S7A-F OMABE EMI A Cr SVBMALL ER AT 
Ya VD ENED bh SIMRO MEL 6 OES. 

KIA PY ayvOPROIGWOD Xe 77 PY HRAIN FAME HG HR dir OPil 
ClL"C"RATY 3s VHORMOREME LTP CPRECICMM TH EWCE 
le USED UL eee DS Oc LS BY, Le a eee ek es 
HokreLtTbstnikdir2zavyv FRBATAZCEMBCHREVA, 

LEDS LP ITI ELT. FIANZOMICSA CIVUIEWVKFEREN 
IXMPMILH SR RA, TORMICUNI XP ODE. APY aveRtTeXr 
FIFELCU RPA LET, APY 3 YOR BAA SYAIL —’DiK IC 
Me T TVA pNy be GELET, CILRATY avec TATY 
av77T7s, EMPUET, 


1-2-3 APvrarRmlnes 
APY avOpeMoOBRORWIC, APYvavoMnravy Fe#EZELIIG. 7 


PANMOUIGRERZAlC ICY FRPIIZEN ET, 
PRR 7 4 VILL TO APN CK ZN-—Vartt~ 





7k Ic -- only filter version xs 
#include <stdio.h> 

maingd 

( 


char line (BUFSIZ13 
int 


for ( n = O03 gets( line )3 nt+ ) 


3 
printf ¢ **%0Sd¥n7, n 5 
) 





WZA-D Bib “WOE main Cli arge & argv VAAL TH ERA, AH 
PBRMEA TIC TAGENT CH SPOS LAT HABAICIS gets & fio CHET, 

Kis avy RE UTD ARATE. TANI EL TORRE RHE avs 
—VYarTtt, 
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7% Ic -- only command version */ 
#include <stdio.h> 


main¢ argc, argv ) 
int argc 
char *xargvs 
{ 
FILE Xfp, xXfopend 3 


while ¢€ --argce ) { 


if ¢ € fp = fopen( X++arav, “r” ) ) == NULL ) ( 
fprintf<¢ stderr, “can’t open %s.¥n*, xargyv )3 
returns 

) 

Ic fp 05 


fclose( fp 3 


Ic¢ fp ) 
FILE xfp3 


char |ine{BUFSI2]3 
int ons 


for (n= 03 fgets( line, BUFSIZ, fp )3 ntt+ > 


printf ¢ **%05d¥n*, n 3 





LODITAMICOWCHTRMEMZA ZAMKeS main PEW BEL T Ic EBT 
TELA. We Ie ls fp CHENSTTANMPSANHLETA, fp # stdin Oils 
MHOPCMLOLICEV ES, HK gets ld foets CLAWNIZTEY) FAA, 

CEECDQIDBAFGCLREMC, AVY PELTSA T4AWSEWT MS 

JICMIRLTHEL ED, DEY, NFA-PELTIFANERP IOI ED 
NEP DRA T 4 EL CHAN Db RALA, TRALARSILOUE 
LP VLICYRILED 7 TANMP HGAAAES, 

TAME RTE SNRYWENAAH TY, 7FA- AHMED YE CH SZ D Iz Ht 
L. BEAN OYRISEDDE SM (Lag kya-Pyv, FJa-KReETIS 
WITTE) EWM WAV ES, LRM THKELT2Z0OF Nicol on 
BLEIEEDNCFH, CDBLAILH OW SZIVY F (HSWlL74 UY) DIA 
Cie 





AVURNS SSo \7 





“x (Go-ee= shine count *7 
#include <stdio.h> 


main( argc, argy ) 
int aracs 
char x*xargvi 
{ 
FILE *fp, xfopend 3 


if ( argc == 1) 
Ic¢ stdin D5 
else 
while ¢( --argc ) ¢ 
if ¢( © fp = fopen( *++argv, “nr” >) >) == NULL) ¢ 
fprintf( stderr, “can’t open %S.¥n”~, xargv )5 
return} 
) 
Ic( fp 03 


fclose( fp )3 


lox, fp 
FILE *fps 


char |inelBUFSI2Z]3 
int ons 


for (n= 03 fgets¢ line, BUFSIZ, fp >3 nt+ ) 


printf ¢ “%05d¥n”, nd3 





IM main li, F7Y avi LORWTWOaAsyY FiCHZET Ie VFA TH 
RLEIAR, RAREMREVEEGICRET SRT. 


1-2-4 APvarvraz7 


APY avIDT EBD LANDA —F OPEROBICE DET. NPA-FO— 
DRBEDIZDWT, ENBLN PASMNIIATY ay CHEMPEODOWNE 
BCRAMPKHCT, HE LT. list LALO LETS IVY FCHS cat SE) & 
J, HORS MUCHAS CUOCTHPY a ve2oMHELED. MATS 
CEI RAEMIT SZ, LODT TAVERN LRRICKSN-S TS -P 
CHILE Y) Y PICMHORICHMOME AbeSROIMURLDOTT, 

ATV avRYCICES PC2VIOSLAHMHAI ET. 

DE, APY a VIET PANMBEY) BHC IS Bed & va 7 HAR Be 
HZCEIED, FHV ar OMRe MMICLED ERD SNTT, 
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OS9: cat -—n —f filel file2 


BU cat (37 7A VILOMMMBA LET, main MCPS, while Hk 
KR arge IL MORDY 6A Y av eyeRRERLTHIES, ENP UCH 
MSGR ELTIPANMBlILLOOMMPoREWZOLICHRNETOC, MMA 
HeEAMYOSTETS. 9 CHUINITRH7 THVT TALE OMME7E IF while 1 — 
PeETLET. 

Shi AER CH S number & formfeed ICA TY avrHNVYESFRINOMFA 
mELET, CN290ETFTU—-NVERE LAOS, main FIC < cat b BiH 
FoP5TF, manNOu—-AVBKReE UTHSLTHHT, cat (TlFH/BEL 
CHZAFROAVETR, FTO-ANVIZLAAOMMCHSZICEL, HL 
DEERBGATHMBMICLELK, CONAN KOR VGROMACT AC, 
AAP CHATTED a ¢ Re Lo TPS ta, 

~@B, if-else C% ¢ switch } fio THAZMIVILE) WBS L RCA V av 
SIMS SODMME La 5 POH, 





7x cat xs 
7k usage? cat <opt> ( file) 
Opt: -n with line number. 
=f form feed after cat. x7 


#include <stdio.h> 


#define YES 1 
#define NO Oo 


char line(BUFSIZ]3 
int number = NO; 
int formfeed = NO; 


main( argc, argv >) 
int arses 
Char xxargvi 
{ 
FILE xfp, Xfopend 5 
char Xp3 


while ( ~-argc && *(p=xX++argyv) == ’-’ ) 
switch ( pli] ) ¢ 
case ’n’: 
case *N’: 
number = YES; 
break; 
case ’*f*: 
case °F’: 
formfeed = YES; 
break; 
default: 
usage () 3 
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returns 
) 
if ¢ argc == 0) 
cat ( stdin di 
else ( 
if ¢ ( fp = fopen¢ p, “r* >) >) == NULL) ¢ 
fprintf( stderr, “can’t open ¥°%S¥”.¥n%, p 3 
returns 
) 
cat( fp )5 
fclose( fp 3 


usage () 
{ 

fprintf( stderr, “usage: cat <-n -f> (file).¥n” 05 
) 


cat( fp ) 
FILE xfps 
{ 
int ons 


for (n= 13 fgets¢ line, BUFSIZ, fp )3 net ) f§ 
if ( number > 
printf ( “*05d “, nd 
fputs( line, stdout )3 
) 
if (¢ formfeed ) 
putchar ( Ox0c ) 3 





APY ayDREYMIWTDNHI—-DOFAFlL, UCMBMeTH Evvt 
FINCH, CHKREEFIBND X-—Y ESMERLECATY av EaMML 
TH, OFULMERLETAPY ay CEI PANE SMH LETHNIIS Y= 
EA by. MRMVICIS A at 2 HO BEDS VR CH, 

EReETNT main CHIDSSLEDCT Mb, PHILA Y av eens 
SMBS T & AOBIR option & LEFT, CHE main PH AHET SZ LERCATY 
aY RBH SWILIEMI SRAM) BS GSTLED 

Dvr CIC BIR option ld, 7NF X — PC Rae ny ee 
VAR LMMCEASPE PBB CEICLEF, bILIIWTKI, SLAF 
Ya VICE DH TRYRAILERR ERT CEICLEDF, LRAT option M 
WIMILYESERIANOFLRIZERRDENSTCH, main lil D3 TDHF 
IZOVT if-else TUMEBZET, 

option (c lx arge ¢ argv FTHKEFVMLET, CHE in THNF A -—P RE 
#TAZxEVWWIOAMwhile (——arge) DV-FCH, CONCHA VY avIz77 
DY’ —’ CHES SOILVW TOA switch iA LET. 
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avy FoRxet 


NFR —-~PVIEKKLETODKETH TOELVESN ETH SH, MEN OMA 
RAMP VIBA SMA PHN TRE GIMILE) EHADCERLTRSY. — 


MAIS Y FICKKFOAT VY ave 


BLAVDIDMASDILTOROTT, 








7% 


7x 


#inc 


tdef 
#def 
#def 


char 
int 
int 


cat xs 


usage: cat <opt> ( file } <opt> 


opt? -n with line number. 
=f form feed after cat. x7 
lude <stdio.h> 
ine YES 1 
ine NO O 
ine ERR (-1) 


{ine(BUFS1ZI 5 
number = NO; 
formfeed = NOs 


main ¢ argc, argv ) 


int argcs 
Char *xargvi 


FILE *fp, *fopend 3 
register char *ps 
int exists 


if ¢( € exist = option( argc, argv) ) = 


usage 0 3 
else if ( exist ) 
while (¢ --arge ) ¢ 
if (¢ * (p=k++argv) 
continue; 


W 


ERR ) 


a=?" ) 


if ¢€ ( fp = fopent p, “r” >) ) == NULL ) ( 
fprintf(¢ stderr, “can’t open ¥°%S¥*.¥n", Pp 3 


returns 
) 
cat ¢ fp )5 
fclose( fp 03 
) 
else 
cat ( stdin 03 


usage © 


( 


int 


fprintf<( stderr, “usage: 
fprintf( stderr, ~ opt: 
fprintf ¢ stderr, 


option¢ argc, argv ) 
int arses 
char *xargv3 


char xpi 
int exist = NO; 


while ¢ --arge ) 
if ( *(p=k++argv) == 
switch ( pli] ) ¢ 
case *n*: 
case *N’: 
number = YES; 
break; 


<opt> (file) <opt>.¥n” 035 
-n with line number.¥n” )3 
=f form feed after Cat.¥n” )3 


pie ay sa 
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case *f’: 

case °F’: 
formfeed = YES; 
break; 

default: 
return¢ ERR )3 

) 

) else 
exist = YES; 
return( exist 03 


cat( fp ) 
FILE «fps 
{ 
int ns 


for (n= 13 fgets¢ line, BUFSIZ, fp >5 n++ ) 6 
if ¢ number ) 
printf ¢ “%05d ~, n)3 
fputs¢ line, stdout 935 
) 
if ¢ formfeed > 
putchar ¢ OxOc )3 





WECHPY av IFTIEFACTA, SHAT Y a vORSHICAMMES 
HReS>SR MIC, —nf’OLIREMSMIFCLICLELE I. 

LOROIGELIODATY a YORFMICIWT LXE FOM TWO PBTIME 
ZY FAA, KEWMM Hiatt C OBA IS$00, BasicDINWAlI$FF CT P5tN 
BROPAZECU-PTSZCEIEV ET, 





7k cat x7 
7k usage: cat <opt> { file } <opt> 
opt? -n with line number. 
=f, form feed after cat. 


#include <stdio.h> 


tdefine YES 1 
#define NO O 
#define ERR (-1) 


char line(BUFSIZ]3 
int number = NO; 
int formfeed = NOs 


main( argc, argv ) 
int argcs 
char *xaravi 


FILE xfp, xfopend 3 
register char xpi 
int exist; 


if ¢ ( exist = option( argc, argv ) ) == ERR ) 
usage © 3 
else if ( exist ) 
while ¢ --arac ) ( 
if ( X(p=k+t+argv) == ’-" ) 
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continue; 

if ( ( fp = fopenc p, “r* >) >) == NULL) ¢ 
fprintf( stderr, “can’t open ¥*%S¥*.¥n”, pds 
returns 


) 
cat( fp 5 
fclose¢ fp 3 
) 
else 
cat ( stdin )3 


usage © 

{ 
fprintf( stderr, “usage: <opt> (file) <opt>.¥n” )3 
fprintf(¢ stderr, ~ opt: -n with line number.¥n” )3 
fprintf< stderr, ~ af form feed after cat.¥n~ )3 


int option( argc, arav ) 
int arges 
char x*xargvi 


char Xp; 
int exist = NO; 
int cs 


while ¢ --arge ) 
if ( *(p=k++arev) == 
While ( c = X++p ) 
switch (c ) 
case ‘n°’: 
case 'N’: 
number = YES; 
break; 
case ’f’: 
case °F’: 
formfeed = YES; 
break; 
default: 
return¢ ERR )i 
) 
) else 
exist = YES; 
return( exist 3 


cat( fp ) 
FILE xfps 
{ 
int ns 


for (n= 13 fgets¢ line, BUFSIZ, fp >s nt+ ) 6 
if ( number > 
printf ( “%05d ~*~, n)3 
fputs( line, stdout )3 
’ 
if ¢ formfeed ) 
putchar ( OxOc )3 
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|-3 AVY KF onHARS Ht 
1-3-1 W4HPST VY OWA 


UNI XTX, FCCERAADT UT FARHMARDETHLATAUT IA 
e(FSECLReRLEL, C (GE) EMRICI- FAY TTAZDEMAETA, 
UNIX Clk Shell B—-HO4 LY I-—PV Piece THY, FHeEMZ ITH Hic 
MLovaAvy FAB CLEIDNDCH, OS — 9 Cls Shell (cD A 7H, BH 
ESN HC LPB CE EA, 

POMC SONS OS ROR REG CERUCT, 

WADPFAAY BIGAT SROITITIAN A 7 4 VI RED SCHL TENE 
5S, RHINO LIT ANH EPSCERAWELTHET, 

FANMPREF HORE ELVMSZATAREL EG. 


OS9:chd /d0/defs dsave ! chd /di/defs shell —p t x 


dsave (A774 VE QAE-TSERONTF AVY 7TrTAMEHALED, Liew 
aT dsave DILHePAAZEICTPANMELTED THERES TH. FOE 
Shell (SVELTL ERITH A pA VEO SS THES EV ET. COMA 
chd 2 Shell Aimkavr FREI CeEMMATHET, 

S Bic, Copy BF Ci XE!) KICFHET SBA, dsave WMAT AGO PIA 
4’Load copy’ &’Unlink copy’ #i8S EVLMICMOEFICLEF, 


OS9:chd /d0/defs dsave ! grep —v copy ! chd /dl/defs 
shell -p x t 


grep —v copy’ld’copy’ £39 PRAM ITO AHWNAT AEDT 4AVITCTH, 
COUPLER E dsave Mit CLoad copy’ &’Unlink copy’M’copy’” & = 
ATVGN MECC, MWHIKKMER EDF CLEA LTRET, 

Shell B74 VF A-FRPR-bELTHAVRH, ZVAVEFA-KFHOIy 
v FE wild fF, 7AMSeHLTIA UV EA FERRMLET, 


OS9: wild * ! place del * ! shell —p t x 
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CHCAVY FAVA LINDA T TAVEHURLET. place (SRMEA Hm 
HLFFORABACNIX -—PHO WwEBEAZATANMITCT. KEI 
shell HRV LTH SZECAIUHBLTR St, shell bER74VIN—-MS 
DCTs 
shell (AHF 4APY ar’ —plsFVuv7bemerkr, 't'lsADTeELTaA-- 
yIFR RUPE —WES ICP R-bTS EVGA RRESF, CM’X’ 
B-KVICF SRG CKO ELF EHOBOTESLICBEVIEF. 
DLAAVTARYOMIZFTA bY Sy YaVrRBATODLOMH DTH, FO 
TrANOWRICRKLTH PR-bLEVRO, FF EHODSODITNTE HR 
PFEIEMEVES, ReRdel DKRAICTITANBRERCNTHHMT 4D TEI G 
(RVI RASA BEV Ss S Exe RtCIYy hO-VERMLTRIEDS IER 
CELL ENV ETDCHEDIITFSt, 


|\—3—2 FV-eYIAOWE 


—Hio ayy Bld, HMC K CSTE EDTN-EY TET SS ED MHET 
ot, TUKEY T LD OPO IVY FOREN Se, LOMDAVTY FELTH 
FEWFOCECHA LITFACHHMOPHREST A -HECLT. MIE shell & 
HLT ZICF SERA, PIZIT, 


OS9: echo ABC ; echo DEF ; echo GHI ! le 
ABC 

DEF 

i} 


LVI BUCH 6 < BI HIT, ARAM echo Di H (sa A, 2 HAM echo M 
HH) aA ie pric eign aight IZED & 
SAMAR EF, CHEBIZIE 


OS9:( echo ABC ; echo DEF ; echo GHI ) ! Ic 
3 
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JS RAINS K CAL ABC’4’DEF &’GHI E53 377 OHA Ie (2K 
SHACEER), PRELTHA 3’ asoneTs, 
OS9:( echo merge ; wild * ) ! join ! shell —p 
lk, CHOMAPICHEY EFL ARYVDETTANeEV-—YTSCEEY 
ea 
#72, M721C shell Dk) SNS C99 FHICIEA LC, HUICBIF 7 dsave DFHil 
DERETEMC KC COE. 





OS9: ( chd /d0/sourcedir dsave ! chd /d1/destdir 
shell —p t x ) 


CUTS L. MT URE ARCOAVY bFAUZAbVOMMBISRIEL THEW 
DCFH, MG chd (kd shell ONWKIAVY F CHT, chd DAMN shell M 
FAVA RYBBLFSZOCTA, COMBA L ¢ HH S 7H shell (sh 
RERBEOIT EPS, ADAPTED TH. 

DEQWIORA 


OS9 : shell 


eLtavy Fee LT. EOF (ESC#—) ick oT Shell EMITS 
DEKE MELOTT, 

MICH, Lv shell DHHS NSE CT PSF AD HA EO MR HY) F 
th 


OS9: ( list filel ; list file2 ) >/p& 


DEDITLTH, FYVAIRVARLT AMI thn ayy FCPYYIROH 
Hess MHAIRKFoTLEWETST, 





TEES TOSS R 3: 








2—1 CBR 


2—I!1—I  arge ¢ argv 


AH CISC BBO MRO MILL ECA, RR, avy RPM EYI BARDS 
SLTOB ECB AIT OVC fc LE 
CCF AT FALLS main £27 RD 6 KATH ANG S LET, main (i 72 
ROMRKCH7T. HhOKB eG CCAIZSHY) FA, 
main (2 > 5|MOBISNET, arge & argv tj dOHPENTSFI, CD20T 
DVRS HP PRET DENS 
arge (L5| ROAM AK  . 
argv (ZS 5IMAONA YI DESMO NA YH 
LEDs 
PEYTIDVAVCLIAGY FAP A—F ld, MEAMOREIM & LTH BX 
AIMSHADITCTR, Clstne “ZACKMShNAMMBOW ELTH 
iC ICOM L, arge & argv ICtHREt y b LT main IMT HUTT. 
i ZX, 


paraml param2 param3 


LWjANF X — FY |Xparaml’ & ‘param?’ & ‘param3’D 3 Dice nN, THEN 
Dik Dire (PF FLA) SAVAICIRS, AOD GEHHD) TRL Ad argv & 
OES. arge Cite y hSNET. 

—DIERTZILIZ AVY EFNFA-SORIBALLTEDIVY FOR 
HOBicey KANTHSZLWICETH, DEY AVY FeEMMT SIC 
R-PRHEZEPRECTH argc liliceoTwEs, 

CCRC SZENRAMEMBL TE EV CER oOTHETFOT, AVY 
YENGR-PRMEELEVTATIATIL HMOBRE LEAS COHWE 
thio 
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2—I|!—2 AHA 


IC (SPMEO AH ABI CA ODIERROD—-Ob HY) HAA, RI THO RMI 
fii TA ZIAIT ZH AL IAOMCS LZ. HSPESECMRMEPOMT SL 
Eo THHLEWHIZE) FHA, CHEDAMAMRMISBHES A TIVEL 
T. VAF AIA DE CHERENTHIENINIER EF, BEST 9) SHOAL 
THSERMVIR(E LT, YVAF AKL > CHOI LI eRAHE LENNIE) 
VAF AWM OBAMA PRESET, MICA LIZ, TOEGILTHARPHLE 
BARTER Bia bitty. 

VYAFAI-NAVANVCOAM IIL OS—IDBANZKBEDI VOR 
MOH SVETD, (LD OS THERES MOLD EMAL TW ZBAMHA YD ET 
DC, NAB GE HoORAM INS BAER OD ERA, FEORMHIZCCIY AF 
ATEDAMN OURS. SHRED Ze DISH LIAM T LEW, BPE 
ISHN TORHWEL FIL TTHIEF, 

Heat S stdio. hh OMIZERSN THI, Nx TP ORHRY-—E SFA EO 
ANZ EONS THED, COM ARIE, FI LEM 4 v5 Me UT typedef 
CHEELTHV ETODNTC, 2-PFILTORMNEANAE MS VBLS 0 EA, 
EIDE FUE C6 OPEN EMT SKE CTH. 

RIEL, PRY TD EMAIAATEY) FSH SHREDS EH TH Bvvkev 
WEEA.OS—- 9 YVAFAA-NWUANCINAZARS LV 7 BRIM STI 
ETDS, CONAZRGILP ILE RAO Pict y ban, AMDMRONRBC 
HASHES, 

DE) ChB TAMAS 2 RHIC HO TR ADTCT, NARGEECHK 
SHS PHAMEIC MEO & Stborlt, FIL ERAS AY eae Eo TRU 
SNTRSZHUTT. 





C Beast 3) 


2-1-3 Fl 


AVY FRROBOBBO—OP RFA ORY CT.. C CIESEAHY IC CF IMS 
TEENVNCH) . MPMLEORMBRIT RAY (PF PVA) DL TR 
SHES, LRM CKFHOKS EMS RHMICIL, BRE CHTARINITS 
QDEtL, MERMNORBIIS  ¥O (ASCII 12—FC$00) BHY5NS 
TER TWEFM, CMSB CIS te 6, BEBO (SI 109 
ICRa TRAZEWFZRUIDCETT. 

ZORDIC PAM ORV DIE (CMH eo THD COHBOA—D LBZ 
DB Cilmt} o 
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2—=-2 FAFSA 





Gates > join 


arge & argy #Rb*VPE LT join ERTFKT. OSAABME LT 74 
WATE CRSEIICUTOMHTT. 

EMEA TI DP BRAGA A TEMBITO F A bE 1 ACHE CHAE ICES HL 
ET. ERIATA CHAD 2A EMA Cli SZ aOlL, RE LOZ CHAR 
RFS Bee 

join D £5 ICPRAED MHz OIE, AVY FEL TRICINIM > & KE Ic Md 
NEMSLNECA,. LOL, FF join 47 4 VI ELTHI RHIC ffor 
LDEOATH. HMZIZ, 





OS9:( echo merge; wild *.c )! join! shell -p -t x 


EMI, DEY EF AVA bhYDCOVY—-REFNTTO—-VTFSZCLICHNIE 
“Sa, 





#include <stdio.h> 
#define YES 1 
#define NO O 


maindO 
{ 
int space, c3 


space = YES; 


while ¢ (Cc = getchar 0 ) 1= EOF > 
tf ¢ f= 2 && C 1= *'¥n” && Cc 1= "¥t? BC I= *¥I? D) £ 
putchar( c )3 
space = NO: 


) else if (¢ !space) { 
putchar( * 7 )3 
space = YES; 

) 





FAP ZA Le MHI HM LET, SHRISEOF ECLA bFORAAL LID 
4 Witz while D/L —- 7b HER SITET. space LV 5 WRIT, L OMT HE 
PIAA TE PIMNTR RP RTEZ THK RODLDNTT, 

4A (9 TROT SZAD-MESLET) D2 MMA Clr ReBAls, 24HA 
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ALBEE RIC LT AR Y PLE. 
space NO (DFE 0 WMBA CHP) CG. HAAAR MEDEA CH OR 
YS IO CHAR MHLEF. 
PAT FLDIRCE PRFOLDIV) EWG MUNA LAT-TPH 77D 
(SOA DEIR) BHR TH EF, OS-9 CEU ¥n lS$0D SRMURLETA, $0A 
(Z$0D LA CISPR LRAREWEFZRRHOIANKEDNTT, 


EB AIAA TMS space MY ESI TW SF CTH SMS LEA, 3 ltl 





OSS:wild *.c 
apart.c 
tail.c 
dmp.c 
cat.c 
head.c 
err.c 
uniq.c 
grep.c 
fedit.c 
JOin.c 


OS9:wild k.c ! join 
apart.c tail.c dmp.c cat.c head.c err.c uniq.c grep.c fedit.c join.c 





22 Geel: wiSeD 


join Llswilc, MRC L ICO MET 749 CHS sep HEV ET. 





#include <stdio.h> 
#define YES 1 
tdefine NO O 


maind 
( 
int space, C3 


space = YES; 
while ( € c = getchar® ) != EOF ) 
if ¢c l=" ° && Co 1= *¥n’ && C 1= *¥t? && CH= FI? D F 
putchar( Cc )3 
space = NO; 
» else if ( !space ) ( 
putchar ( *¥n7 )3 
space = YES3 
) 





oe sep -- separate words *x/ 
| 
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it 


CIS ATIL 


CNReRTAPBIWRELEDM joine & LLM EA, OO LEM IZ 
INFLMBWECA, (AXY bhIZMEeE LT.) 
BEDIZOICTI PANVZ RBIS EIICMBRLTCAET, 





7k sep -- separate words xe 
7k usage: sep ifile) x7 
#inciude <stdio.h> 


#define YES 1 
#tdefine NO O 


main(¢ argc, arav ) 
int arge; 
char *xargvs 


FILE xfp, xkfopeng; 


if ( arge == 1) 
sep¢( stdin 35 
else 
while ¢ --arge > ( 
if ¢ ( fp = fopen( x++argv, “nr” ) ) == NULL) ( 
fprintf< stderr, “can’t open ¥*%S¥".¥n”, *argv )3° 
returns 
) 
sep( fp )3 


fclose( fp )3s 


sep( fp > 
FILE Xfps 
{ 
int space, ci 


space = YES; 
while ¢ (cc = getc( fp) > != EOF » 
if Cc l="? * @& o l= "¥n” && CH= °¥t” && CO 1= FI? > ¢ 
putchar( c )3 
space = NO; 
} else if ( !space) { 
putchar ( *¥n’ 3 
space = YES: 
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2 233) Aplace 


BUEDOS-9ISTA UV EFA FORE MAIA RIT BaRwM, 74% 
fis CHD NSPE LVI OMINIYY FOHECH. LRT. Ha 
TulL DAV EFOAVY FBEV Shell & -HICMALET. 

NZRA-IOUGR EIR LAT I RHR, SOMES ANT CE 
aC UMAMZATLEVETF, PIZIZ, MOLGIFSZLEAVUY FAVA bY 
DETIPANOAST bY Ca hPESAADHICEV ET, 


OS9: wild * ! place attr * w=! shell -p t 


COAL IAI, Shell 2784 PLEWEMOGR SE HFSLNERA, ER wild D'*’ 
& place O'* (SIRS Fo? CH ETO CHALT PSs, 

% L Shell DRHET » TUT. FAV EA-FRERUHIS EGE ORGA 
ISCO A7PSMATSEFICLEWNITE) HA, 

How (LHEBMTE THEWOC, ROLF RM WCEES, 


OS9: wild /d0/temp/* ! place copy/d0/temp/* *! shell -p t 


cUTC/d0/temp FA VA bVICHAZABTITANVEAVLY FAVA RVae 
-LEF. dsavelei<PMreavy PeeV ET, 
MEATAUVEA-KE EY thas ¢ £15 HR HITET, 





OSS:mdir ! tail +3 ! sep ! head -5 ! place save *! shell -p t x 
save Boot 

save OS9p1 

save OS9p2 

save OS9p3 

save Init 





CHCEV A-NMFAVTA bPYUODRBD 5H AvVY bP 4AVTZ bY ic save 
L#EL%. head O{H Vic grep IMS GYVTHIZ, EYa-—nrF {UAV 
MWCIAM PAH FRE CLS CSET, 
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MEMO SRA OWICLAT-THrA7VRABLELZ. place lk b 
4% Shell PUY EFA YEAST SCLERMICBY THAZDITCTA 4D 
EECIKOLI GMA SES CLS TCREUA, LEK Shell (SOL SY 
BC OTA 2 777 ETM ED LL THRT Sb TF. 


list filel ; display c 


TEERE KOE FIIRDOES, LAT -THY ITI VOKD 2NFS 1 6 HEB 
EMRE TC. FORTHE RAT YCRSAZLET. PILI, 





OS9:wild x. Cc ! place display a a ¥3b list * ¥3b display c ! shell -p t -x >/p 
display aa list apart.c 3 display c 
display aa ; list tail.c 3 display c 
display a ai list dmp.c 3 display c 
display aa: /ist cat.c 3; display c 
display aa: list head.c 3; display c 
display a ais list err.c 3 display c 
display a ai list uniq.c 3 display c 
display a ai list grep.c 3; display c 
display a ai list fedit.c i display c 
a 


display a 3 list join.c 3 display c 





La), 25TORIPAVEVYARLTKR—-YFTSZ, LEMjayy FAM 
HENTRZDKRDRVIETF, 

ENT, FAUT AIARMRBLET. 

LIT FOANL, DRE (HUM line) (OV CONF X — Y 4e fps % jw LT 
PASE SBZET, EDRSIRZ EO b OIL putarg BAFVEF, LALC 
DYE NLIST 2 —P BAM SNATHSNEFOC, MSMZELMCHF ERS 
cILTHEUA,. COC for --7F CHL CHIARA, HALTAES, 
putarg J SAIC LOZ eH LAV LL NAR -P ENF R-II OM DS 9 
DWaTLEWETF, for MDHMMENODE CAIZ putarg PATH Ti = 2b 
OTVIAD LB LIST A-FOHWMCRALEASMHTEORODRETCTFT, 


LAT A-LPHY FTI EDA RID 72 1c PYAR ahtoi & flix ETH, ahtoi (ic 
HUMAT AS FATS MALETL, WHEDHSEONCIH 5 Defs 74 Vv 
7 PVICHINL TB OD DYNAN ULTRO TED TRYTFICHSAL 
THEY INF SRPLTHS LRH LBA CBO ET, 
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7x place -- replace ’x** with STDIN_|ine x7 


#include <stdio.h> 
#define ERR (-1) 


char |inelBUFSIZ]3 

main( argc, argv ) 
int argc: 
char k*argv(]3 


char X¥getsO3 


int i3 
if ( argc == 1 
returns 
while ( gets( line) ) ¢ 
if ¢( Xline == *¥0"* ) 
break; 
for ( putarg¢ argv[1], line >, i = 23 i < arges i++ ) { 
putchar( 7 7 03 
putarg( argv[i], line )3 


) 


putchar( °¥n* 3 


putarg( p, q) 
Char xp, *q3 
{ 
int C3 


7k replace **’ in p with q x*/ 


while ¢( C = Xpt+ ) 
LF Gan Soe AK 2). 
fputs( q, stdout 5 


else if ¢ 


putchar ¢ 


Pp += 25 
} else 


== '¥¥’ && p[O] && pli] ) ¢ 
( (© = ahtoi (Xp) *16+ahtoi (p[1]) >) == ERR)? * *: ©) 


putchar( c )3 


int ahtoi¢c ) 
int C3 
{ 


if €c >= "0? && c <= "9" ) 


return( c - 
else if ( (c= 

return( c - 
else 

return¢ ERR 


"O° 05 
tolower¢c) ) >= ’a’ && c <= *f* ) 
"a? + 1005 


3 
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272i 4. head 


TFA NMODRMODH ZY & ARO I OA head TF, list DIA v 
hR-WVESRATMLRMREILDSCEBCRETD, NATIT VOMmICT 
AMPELTIES RMICILMAE (HY HtA head Bb ¥ERIAVY FELTRY 
CHITA SLES RIE LRUD CH, 

{TRUS OH LIC 1 OMI CECHELET. PIZIF, 


OS9 head —10  samplefile 


“eFlx, samplefile D51N 1 OTT WMASHET, 





7x head --~- print head of file x7 
“* usage: head <opt> (file) <opt>. 
opt: -10 head lines. xs 


#include <stdio.h> 
#include <ctype.h> 


#define YES 1 
#define NO O 
#define ERR (-1) 


int ,count = 103 


main( argc, argv ) 
int arge; 
char *kargv; 

{ 
FILE xfp, *fopendO 3 
char x*p3 
int exist; 


if ¢ ( exist = option( argc, argv ) ) == ERR ) 
usage 0 3 
else if (¢ exist > 
while ( =-arge ) { 
if (© *@=xk++argv) == *-’ 
continue; 
if ( fp = fopen¢ p, “r” ) ) { 
head( fp, count )3 
fclose( fp )3 
) else ¢ 
fprintf¢ stderr, “can’t open ¥°%s¥”.¥n", p 3 
return 
) 
) 
else 
head( stdin, Count )3 


usage © 
( 


fprintf( stderr, “usage: head <-10> (file) <-10>.¥n” )3 





FATS LE 39 


int option( argc, arav ) 
int argc; 
char xxargv; 


int exist = NOs 


if ( *(p=xk++argv) == ’-" ) 
if ¢ isdigit¢ p{1] > >) 
count = atoi( ++p 05 
else 


while ( --arge ) 


return¢ ERR )3 | 
else 
exist YES; 


| 
( | 
register char xpi 
return( exist 23 | 
] 


head( fp, n) 
FILE xfp3 
int ons 


char *fgetsO 3 
char buf (BUFSIZ+1]5 
| 





int is 


for (i = 13 i <= ni itt D 
if ( fgets( buf, BUFSIZ, fp) > 
fputs( buf, stdout )5 
else 
returns 
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a 2-5. Ian 


tail (i head wile, Pra VOHRD) OTHE MALES. 

WAT CHSPRBETZDICATY avi bP O2VEMALET.'-— 10’ 
EFSZETTANDHID1 OFF EW) BRICE D+ 30 EFSZETTANOD 
SOTA PERO ETCE DF BRICEO ET, MEMMICT SRM, ‘et’ 
OWA Bis TlH cic lLEF. 

DWC, TESETSATY avn eftmMLl ELA. 

WR. SOAP ys vick Db SMBAeSZTAEZLE GS. 

tail 2* head DUP & MARA ICH OIL, KANT SHC. 7 7 A IVARAMATT H 
ADEMASCIMEL SLO ICHV ET, OE0RMC TZ TA VE 2M MEY 
©. MT ARPSCMNTNERPBDYSEOOTCLIRMBECT. 2 Mik GIN 
IREBWVEWFZ CLL LMRAR LD ERE LTBI S EE 
FOECTA, ECIRELTHK NS MISHETSH, RRL, ANT TAA 
MILF 4 AP CHM SM BLS O HAA. LMABATRERMSA, HOR 
MPoPABREL DCH. ENUM SCKRIYATPAFI4A ATHY, 
WAP BZA YRPSDKANRs?GRADH LOTT. 

Lhe, tail CMe RBFYAPLEEISCHABDD 20H HCE 
CLELA, TEI POTRBFIG4 THEI CHADS MATRE SE ELWADNT 
Lek Ds 

V7 OER isrbf FUCK S.C TOT 74 Wild, stdioh CHERS MKF I 
LEM RACWIS Eo CHRHMSNET. ZOO _ flag tsp lesf4 basa 
VOL A SER UCR D CH bs THT SLR CES A Fine yb 
SUF, RRC AILRALTHHOTHy HEMET, DEY 1-4 PHA TAN 
IFEVdDIFCTFTA, FO174 bldungetc CH ELTHHMAUNESE ) EA, 

RRELE I LE RAD PARSE 5 HoT SMITH Rle Eo TRLSOO 
“Mb einleeboeorrwo», COPAUFIAVOS-IUHADOSHLE CH 
(WEF PUTRGECT A EAA. isrbf HSMP PERILS scftail Oy & KAT 
FHZIEMTHNITMMS ROTRHOYAFACTOHMAET. 


FAFA 4| 


seftail Cli 1 MBAR 7 PALER ORAZ 7 AOI LES. MOS 
RHELT, MME EoTECILEDTHS EWG HEMS YN ETRY, 200 
HE TD 7 4A IVOIRE EATCEICLELK, 

HS (2, MMIII CORES, TRAV OSAA AOS HAMS LSD 
CLlLEFAMARCT, DEVNTHASZPODHBWVLEEI YN VIRFIC HER 
FZILIETEERMA,. CTARELTHRKEA EV VBE TFS CERT 
VUTNIRIOURBECH EOD K. PVF IRF ClLMDT BE AIMEE D8 
HS mREVER DO ET, EMC A SY SHY 4TSPRHICPAR malloc * fi 
JFOCEMBLGNETD, SEV EKMICIRT S WHED HS SACL ERS 
WULOCECH, H4—-HEECIXL EY) LCENVEISHT 74 VERS LW 
J FROHVOEF, MUCHAS (Mls HY ETD, BHA IC MEMES eo TLE 
Clk a 

BOI PAF FA AZ HSVISRAMP 4 AZ SAA L Tr SZRETCIZ, % 
EVSPMoTCOPMZ TA Ve Ho TORU LEEM ) EA, HICRAMF 
ARPBIZE BHD MAE) LCL ONETD |S ETRE DROOL TEE 
tA 

STUEMEI GMI EO PAZ 7 4 VE LT tailtemp.XXXXX ba 5 
SbDEED ET, CM XXXXX OfMield mktemp ic bo THBRITIT 5 HID AHR 

GAL FAORARS) (CRAB ZENESF, PAT 74 VOW ETI unlink 
lz, EATS deleteMRKTT, 

mktemp @ffbeWV4EEGZRACLEI. PAT 74 VERA tail CH 
SAMA CREF, PZIZFLODNA TIA VOM tail F 2OHBrLH 
fy, HURL REET EEC EICHOET, PAZ rf Ve BAI COMIC 
CHM L TP Sha, 





a3 tail == print teil of file xs 
3 usage: tail <opt> ( file } <opt> 
opt = -10 last 10 lines. 
+100 after line 100. 
=" with line number. xs 


#include <stdio.h> 


#define LASTLIN 10 7k default lines x*/ 
#define YES 1 
#define NO O 
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#define ERR (-1) 
#define isrbf (fp) ( ungetc (getc (fp), (fp)) 


char buff BUFSIZ 13 


’ 


(fp) ->_flag & -RBF > 


int after = 03 7k print after “after” line KS 
int ntail = 03 7% print last ’ntail’ lines */ 
int number; 7k with line number ? xs 


main( argc, argv > 
int argc; 
char *arav(l]s 


register char X*pi 
FILE xfp, X*fopend 3 
int exiSt, C3 


if ¢( ( exist = option< argc, argv) > 
usage © 5 
else if € exist >) { 
while (€ --arge ) 
if ¢€ € © =*(p=X++argy) ) != ” 
if ¢ ( fp = fopen( p, “r* 


return 

) 

if ¢ isrbf( fp) > 
rbftail( fp 3 

else 
seftail¢ fp 3 

fclose( fp )3 

) 
} else 
scftail( stdin )3 


usage 0 
{ 


( 
fprintf< stderr, “usage: tail <-10 | 


fprintf< stderr, “~ opt: -n with 
fprintf(¢ stderr, ~ =10 last 10 
fprintf<( stderr, ~ +99 after 


int option( arac, arav ) 
int argc; 
char *xargvi 


char *p3 
int Gt. 
int exist = NO$ 


while ¢ --argc ) 


if ¢€ € cc = *(p=k++argy) ) == *-" 
switch (c) ¢ 
case *-’: 
if ( Xt+p == "n’ ) 
number = YESs 
else 
ntail = atoi¢ pds 
break; 
case ‘+’: 
after = atoi( ++p 03 
break; 
default: 


return( ERR )3 
) 
else 
exist = YES: 
if C ntail && after ) 
return( ERR )3 
else if ( ntail == 0 && after == 0 ) 


== ERR ) 


’ 


&& Cl= +? ) [ 


> ) == NULL) ¢ 
fprintf( stderr, “can’t open ¥°%S¥".¥n", Pp )3 


+99> <-n> (filed <opt>.¥n” 05 
line number.¥n” 3 


lines.¥n” )3 


line 99.¥n” )3 
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ntail = LASTLING 7k default lines x7 
return( exist 3 


rbftail¢ fp) 


{ 


FILE xfp3 


int Cs is ni 


u 


for ¢n 3 fgets( buf, BUFSIZ, fp )5 nt+) 


H 
rewind<( fp 3 
putnline( fp, nd3 


scftail( fp > 


{ 


FILE xfp; 
char tempnamel 32 13 
FILE xtemp, *fopenO 3 
int on, is 


mktemp< stropy( tempname, “tail.temp.XXXXX* ) )3 


if ¢ € temp = fopen( tempname, “w~ ) ) == NULL) { 
fprintf( stderr, “can’t create temp_file.¥n” )3 
returns 


) 

for (n= 03 fgets( buf, BUFSIZ, fp )3 n*+ ) 
fputs( buf, temp )5 

fclose( temp )5 


if ¢ ¢ temp = fopen( tempname, “r” ) ) == NULL al 
fprintf¢ stderr, “can’t open temp_file.¥n” )3 
returns 


} 

putniine¢ temp, n 5 

fclose( temp )3 

unlink ¢ tempname ) 3 7* delete temporaly file */ 


putniine( fp, n> 


FILE x*fp3 
int ons 
int is 
n= (ntaild? n-ntail: after-13 7* count for skip lines */ 
for (i = 13 i <= ns itt ) 
fgets ( buf, BUFSIZ, fp )3 
for ( & fgets( buf, BUFSIZ, fp >) != NULL; i++ ) 


if ¢ number ) 

printf ( “%05d %s”, i, buf )3 
else 

fputs( buf, stdout )3 
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2 ue ar Owes UNG 


uniq (SHRM T ATE MOR T1TicCEEMSIVY PP (FAN) CF. 


abcdefg abcdefg 
uVWXYZ j uVWXYZ 
BATS Be ewHLET. 
uvWXxyZz aaa 
aaa 


unig lst TY av Rb) FAA, ERI AVA SBME TEE 
Ly. FRANKS 1LOOFFE LED DRUG ITA ND biALAET. 

LONDT TA NMIZIOV THBERY BRS REE TS ODMR uniq CT ATV 
MLTR APE DRHNSROIZ, Av 7PTEZOMRLTHA, AIBA 
747% before DHF IMoCTBEET. bULARMATETO MMT (before) & FH 
LITMIZSMHA LEA. OLEUL<S SItNiIFM IL. EMIT * before IC IAE-L 
Ed, AB. MPAH Lb ic (EPLMEBYZ@ strncmp * fiivs ¥ $+, strncmp % stre- 
mp ©3835 Did, LRT AREA OK, REECE SEW CECHD dF 
ELT OMD E OARIAMS ) KANT stremp (2 LT SMHTT. 

PLATA CLEMRL E DIC DMO BKATEHEL EDIT CTA 
before DHHS 2PM E LTH S CEIZE strncmp DHROYST UHL ¢ 
Bry LROEFMPOUOSHHSNET, “HE, before lS7 I-A (EVIE 
WIAPFAY7) KRBRENTHENTIVY FRMITEREMICeI7 THOS 
ACHR, 2LOAVMOT TAL ERS SUFIZ, WOT 7 4 VOIR before M 
HDI TO SEM, Hi SBIR uniq Die) CHHMEL ZIM) EA. 





7x uniq -- print unique line x7 
7x usage: uniq (file). x 
#include <stdio-h> 

#tdefine EQUAL 0 


char before(BUFS1Z]15 
char |ine(BUFSIZ]5 


main( argc, argv ) 
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char xkaravi 
FILE xfp, Xfopend; 


if ( argc == 1 ) 
uniq¢ stdin )$ 
else 
while € --argc ) 
if ( fp = fopen( *+t+argv, “r~ >) ¢ 
unia( fp )3 
fclose( fp )3 
} else ( 
printf ( stderr, “can’t open ¥°%s¥*.¥n”~, *argv )3 
returns 


| 

| 
int argc; 

| 

| 

| 

| 


) 


uniq¢ fp > 
FILE x*fp3 
{ 
xbefore = *¥07s 
while ¢ fgets¢ line, BUFSIZ, fp) ) 
if ¢€ strncmp( before, line, BUFSIZ ) != EQUAL ) ( 
fputs( line, stdout )3 
strcepy( before, line )3 
) 








22-7" “apart 


OS9Boot 774 MVAKGICELY a WASMBA VY -—LUTHA TTA NVEIE 
BILLDIFAMIEFSTAUFFATF. 

VAFANBREE ST SBC OSMBoot (EY AT CEMBZWCTHTR, ZOR 
H(cl5H 5H OSIBoot MHD ELV a—-VENMAOTPTANMIZLTH SS DH 
BHYVET. RRELINTRA EY EV a-N LICH ZORHIE, save HEN IK 
PEW HRS HSICMLHI ETD, Hic Nv 2 Cla, OSIBoot MH XIZL 
MEO. Ny T-VIEL RAV Y PERG CEMBBZWOT, apart (EZOEPA 
Oro, , 

PILI, FAO YAFATLIVY FR Sy 7-LILLT Startup RIC a — ' 
FSELIMLTHET, 




















attr.etc 
date.etc 
exbin.etc 


























| 
OS9:wild -x x.etc ! head -3 
i 





46 CELLS 707 FL 


2M45 4 attretc lEKDNDIDEVP—-YVLREDTT. (CHED7I TA NVI 
WUE HO EWA, attr D1 BiH CT etcetra LWVIIZENDH DCT.) 





OS9imh attr.etc -xe 


"attr.etc’ 


module name size type fang atvrv 
Attr 0286 Prerm Objct 80 01 
Build 0054 ~Prarm Obsct 80 01 
Del OOAS Praerm Objct 80 01 
Dir 0300 Prarm Objct 80 01 
Display 0084 Prerm Objct 80 01 
Echo 0022 Prgrm Objct 80 01 
Link 002C Prerm Objct 80 O01 
Makdir 0022 Prearm Objct 80 01 
MDir O26A Prerm Objct 80 01 
Merge 0068 Prerm Objct 80 01 
Mfree O1EB Prerm Objct 80 01 
Procs 0280 Prerm Objct 80 01 
Rename O11D ) Prerm Objct 80 01 
Unt ink 002D Prarm Objct 80 01 





cP attrete (Ch 57 -VDEV2-WVEMAZSDILABTT. Micv—-YVTnis 
ELVDCT MH, LAL-DHIRF 42 MlLME CLS) EA, SH save LIAS 
ws relk apart SPV ET, 

ETMLOFP A UA RV SPFoRAMENTL S35. FCIBOREK, 


OS9 : apart /d0/cmds/attr.etc 
CO AVYbFAVTARVICL AMO TANABCREF, CHEVHIRT SE 
DANZA) LURK, 

OS9: (echo merge;wild *)! join! shell —p>/d0/cmds/ attr.etc 
ZEETHITHHRERDO CH. 2B. CDHEN—Syvarvki'e (HT AWE) 
KLTBOBWVVEAU-FCKREA, 

St. ATV aye Lax S'=AO 20H ET NK EOD FT Ay 
BAVY ERT AVIA RVICHSCEERLEF, 


459 -OD'-PATY arvtCHNO7 74 VETS MEER OF 47 b 
VICE CRASKIILEL. MAZILKOYRe SLES. 


OS9:apart /d0/cmds/attr.etc /d0/cmds/date.etc 
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Zilt/d0/emds ERI FAVABVYVICHSZ2ZODIFANEAVY ET AY 

DRUIDS SLOCTIS, BHRNAYAPS2VERELALWINITEZHS 

bIC, HHEAVOPMACT, UL4A/d0/cmds CB2 TET, HAD T 
AVIbYVOH RHE LRAADMETCT, 


OS9:chd /d0/emds apart attr.etc date.ete —d=/dl/ temp 


CIF AFFAEMHMLET. 

main (i option SFU LCA PY aveReE LET. —d CHELRAT 1 
PhVAlS root CIE-LTBKEF.—d SHE LEW L root |LADEET 
To 

A apart lL LOMITA NVEDMLET. mainlStTNENDITANCE 
(IC apart SFU LES. apart kk TAY SERAUA CEY 2 —-VOE MME 
eFaoyv7l, HHA rAVeEZFVSARLEF. FLTEVa—-NVIMEIE 
— LRT rt VERKOE Ya —v Hic rename LET. 

BWP SEV2—VORAHC7 YEA bLEWTC, rename FH E199 Did 

EPMO EF CBbNSDdS LNMECAD, CHriclsMHh ph DET. EY a 
[emcee CoRR gio haath: PYVTZAhIFNSHTITE 
PRA DPSLRrATCH, VORA AH ES RAAARRT fseek TEESZEW 
SROHV ETH, ANTTANMELTH 4A AFUROMIDEMELTRE RHIC 
CKEPA, LRP TRORAMHLTZ 74 IVICIE-LRRTE OMS fseek 
LUEV a-—VRZRROET, “wt fopen LTRADILEDROTT. 

SCT-ORUVRMELET, EV 2-WVOERMEDF =v TILLY Y TNA ED 
AIZOW TRI, Ny PNY F 4 BELUCRC HN EGA, RO THORS 
ILZNPU CHICADEF CHL. PMAMHSLELTORBRLELE I. © 
SF ULTIMICESHIE, ROLREM CLA) EEAPELADCHALA TAT 
FSbs, 





7k apart packaged module file xs 


7x usage: apart <opt> (file) <opt>. 
opt: -x source is in execution ere tony 
-d=<path> destination directory. 





#include <stdio.h> 
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#define YES 1 
#define NO O 
#define ERR (~1) 


char root (BUFSIZ], pathl ist {BUFSIZ]; 


int exec = NO; 
main argc, argv ) 
int argcs 


Char xXxargvi 


FILE xfp, xfopen®, xfcloseo; 
register char Xp; 
int exists 
if ¢ € exist = option( argc, argv ) ) == ERR) 
usage () 5 
else if ¢ exist > 
while ( --argc ) { 
if ( X(p=xX++argy) == °-" ) 
continue; 
if ( fp = ( exec? fopen( p, “rx” ): fopen( p, “r* ) >») { 
if ( apart( fp >) == ERR) { 
fclose¢ fp )3 
break; 
) else 
fclose( fp )3 
) else ¢ 
fprintf( stderr, “can't open ¥*%S¥*.¥n”, p)3 
returns 
) 
} 
else 


apart ¢ stdin 35 


usage © 
( 
fprintf( stderr, “usage: <opt> (file) 
fprintf¢ stderr, opt: —x 
fprintf( stderr, ~ -d=pathlist 
) 
int option( argc, arav ) 
int argc; 
Char xxargv; 
( 
register char xpi 
int exist = NO; 
while ( --arec ) 
if ( X(@p=X++argv) == *-" ) { 
switch ( xX+t+p) { 
case 'x?: 
case *XK*: 
exec = YES: 
break; 
case ’*d’: 
case *D’*: 
re °C X++p == Taye) 
strepy( root, ++p )3 
else 
return( ERR )3 
break; 
default: 
return(¢ ERR )3 
) 
) else 
exist = YES; 


return( exist 3 


int apart¢ fpl > 


<Opt>.¥n* 05 


execution directory.¥n*~ )3 
destination directory.¥n” )5 
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FILE xfp1s 


FILE *fp2, xfopenO, xfclosed 3; Wh 

struct ( Il] 
unsigned sync, size, names i) 
char tylan, atrev, hpars 

), head; 

char fname[32]3 


while ¢ fread( &head, sizeof (head), 1, fpl >) ¢ 
if ¢ head.syne != Ox87cd ) { 
fprintf<( stderr, “header is incorrect.¥n” )35 
return( ERR )3 


makepath( pathlist, root, fname )5 
if ¢ € fp2 = fopen( pathlist, “wt” ) ) NULL > { 
fprintf( stderr, “can’t create. ¥°%S¥".¥n”, pathlist 03 
return( ERR )3 I 
) 
fwrite( &head, sizeof (head), 1, fp2)5 
if ¢ filecopy( fpl, fp2, (long) (head.size-sizeof (head)) ») == ERR) ¢ 
fprintf( stderr, “end of file.¥n” )3 
fclose( fp2 )3 
return( ERR )35 





| 
if 
if 
i] 
mktemp( strcopy( fname, “apart. tempXXXXX” ) )3 
| 
| 


) 

fseek( fp2, (long) head.name, 0 )5 
makename( fp2, fname )5 
rename( pathlist, fname )i 
fclose( fp2 )3 

) 

return( NO )3 

) 


makename ( fp, Pp ) 
FILE *fp3 
register char Xp3 


xp &= Ox7F5 
X++p = °¥O"S 


makepath( pathlist, root, fname ) | 
char xXpathlist, *root, x*fname; 
{ 


if € Xroot ) ¢ 


( 
for (3 ¢ ¢€ Xp = getc( fp) ) & Ox80 ) == 03 ptt ) 
strepy( pathlist, root )3 | 
streat( pathlist, “77 )3 
streat( pathlist, fname 3s 
» else 
1 
} 


strepy( pathlist, fname 3 


FILE xfpl, *fp23 
long n3 


register int Ci 


while € n-- ) 
if ¢ €c = getc( fpl ) ) == EOF ) 
return(¢ ERR )3 
else 
putc( c, fp2 )5 


i 
int filecopy( fpl, fp2, n> 
return( NO )3 
| 
\ 


rename( p, q ) 
char Xp, *qi 1 
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char l|ine(81)s 


strepy( line, “rename ~ )3 
streat( line, p )3 

stroat( line, ~ ~ 03 
streat¢ line, qi 


system( line )¢ 





go Bp 


TTANMDL CHS YTOFAFIACH, FrANOF PVA GHCER 
SHET. THY avicLoTRI—-bTRVALIY EP RU ASHETR, 
MERE 7 7A VERE T UV PLES, 

THE LRTI TAMER LUAU RORBAC EHO T TLR ¢ MA 
LICR ET, DEQDFA VI RV ESL SPADINA av EhibDs 
i. AP ANON AYIA LES, 

BJA dmp B—-W)7 FA MCIWWTCHY PREG LEF WIZ 7 TAP 
VAIE3 2Ey hONOY ALY FV HICLEWHIZE) ERADC)!) Ab 
long Hae LTWETF, 

dmp lt29Y¥—-—bP FV Asadr POLY EF EVA ecadr ¥CV—-TPLET, Z 
¥-hKT FVRECAX yY FF SMR skip Cid, tail OHA LMRICRBFI4 
Tie bldfseek LETA THOME 14 hTORMAAAET, 

SC, RAHIL1 67S PHA CHT ETH, ZY-—BPFRVALEZY EPR 
ADMIZEOEDILLANA BEY ESRRLEVELIKFSRO, BRAD y 
77 buf SRIF TE CIS 14 PPOMRAA CHA, —Riceo ROMA 
SEW HREEMOEF, LIFSCA-FYO7a—-ALAMLCOL & buficow 
CTI bIVeT. 

dmp 11%) initbuf 2*4—7'» GC, flashbuf 87 a2—-xicHH4stsacMzixk 
WCLED. RK keep ld78y PPP - FI RHSPEWVDERLESF, ONS 
—FREVAITES ML TLEF DEH ZROCFH, 

addbuf %* pute (Ic fH#4 L EF. addbuf | 1 6 HE 2HFOMOLEASCIIa—F 
Diba e buf (Cty LY xxxxI0 OP FU AKO Reb Ay SeEMHLET, 


FAFF LB 5] 


¥7oxxxxxf OP FUAR ORES buf SHH (flashbuf) L. buf #% Lied 
YLT (initbuf), 

initbuf i buf & AX—ATHMEFOC 1] 67954 HDI KHK—PY Dek vr» Wp 
IZAZAN-ABMASHSCEEV ET, 


hex-decimal dump x7 

usage: dmp <opt> (file) <opt> x7 

option: -x execution directory. 
-s=000000 start address. 
~e=ffffff end address. *Y 


#include <stdio.h> 


#define isrbf (fp) ( ungetc(getc(fp), (fp)), (fp)->_f lag&_RBF 


#define ERR (-1) 

define YES 1 

#define NO O 

#define HEXOFT 8 

#def ine CHROFT 49 

#define BUFSIZ (6+2+ (4+1) *8+1+16) 


long start = 03 7k start offset x 
long endadr = Ox7fffffffs 7* end address xs 
char buf (BUFSIZ+1]5 

int keep NO3 

int exec NO; 


main( argc, argv ) 
int arge; 
char xxargvs 


FILE xfp, *dopend 3 
int exist; 
register char xp3 


if ¢( € exist = option( argc, argv ) ) == ERR ) 
usage 0 3 
else if ( exist) ¢ 
While ¢ --argce ) ¢ 
if ( *(p=xX+targv) == *-’ ) 
continues 
if ¢ € fp = dopen¢ p, exec ) ) == NULL ) ¢ 
fprintf( stderr, “can’t open ¥°%S¥”.¥n”, Pp 3 
returns 
» else 
dmp( fp, start, endadr )3 
fclose( fp )3 


) 
) else 
dmp¢ stdin, start, endadr ) 3 


FILE xdopen( p, exec ) 
register char xp; 
int execs 


“FILE Xfp, Xfopend $ 





tt exec > 

return( ¢ (fp=fopen(p,“rx”)) 11 (fp=fopen(p,“dx*)) >? fp: NULL 3 
else 

return( ( (fp=fopen(p,*r*)) 11 <fp=fopen(p,“d*)) >? fp? NULL D3 
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Cet ern s& 


usage 0 


( 


int 


dmp¢ fp, 


int 


fprintf( stderr, “usage: dmp <opt> 
fprintt < stderrs "“° opt: =x 
ferintt< stderr, * -s=000000 
fprintf( stderr, * —-e=ffffff 
Option¢ argc, argv ) 
int arge3 
char *Xargv; 
long htol O3 
register char xXp3 
int exist = NO; 
while ( --arge ) 
if ( k(p=X++argv) == °-" ) 
switch ( xX++p ) [ 
case *x*: 
case *X*: 
exec = YES; 
case *s’: 
case 'S’: 
+4D5 
start = htol¢ ( Xp == 
break; 
case *e’: 
case ‘E*: 
+43 
endadr = htol¢ ( Xp == 
break; 
default: 
return( ERR )3 
) 
else 


exist = YES: 
return( exist )3 


sadr, 
FILE xfp3 
long sadr, 


eadr ) 
eadrs 


register int Ci 


if ¢ sadr && skip( fp, sadr ) 
return; 

initbuf¢ (long) « sadr & ~OxOf ) 

if ( ( sadr & Oxff > Oo) 
header © 3 

for (¢ keep = NO; 
addbuf ( sadr, 

flashbuf O35 


sadr <= eadr 
ers 


&& 


skip( fp, adr ) 

FILE xfp3 

long adr 

if ( isrbf¢ fp > > 

fseek( fp, adr, 

else 

while 

if 


0)3 


( adr-- ) 

( getc’( fp ) 
return¢ EOF )3 

return( NO 5 


EOP: } 


( 


Delt 


Cc 


file) <opt>.¥n” 3 
execution directory. ¥n” 
start offset.¥n” 03 
end offset.¥n” )3 


)? t+pt pds 


2? ++p2 @ 4 


== EOF ) 


= getc( fp) ) != EOF; 














5 


sadr++ ) 


header ¢ 
{ 


putchar¢ *¥n’? )3 
puts (“ Addr 01 
PULS("m--9-- 


23 45 67 8393 ef cd ef 


initbuf ¢ adr > 
long adrs 
{ 
register int is 


Itoh6¢ buf, adr ) 5 

for ¢ i = 63 i < BUFSIZ; i++ > 
buf lid = 7's 

buf (BUFSIZ] = *¥0°3 


f lashbuf 0 
( 
if ¢ keep ) 
puts( buf )3 


addbuf ¢ adr, c ) 
long adri 
int C3 


register int oni 


keep = YES; 
n = adr & OxOfs 
buff CHROFT + n J = toprint( c & Oxff 03 
itoh2¢ buf + HEXOFT + (n>>1)*5 + ((n&1)9?270) , Cds 
if ¢ € adr & Oxff >) == 0) 
header () 
else if (Cn 
f lashbuf 03 
initbuf ¢ (long) (adr+1) 03 
keep = NOs 








15°54 


int toprint¢ c ) 
register int cs 


return¢ (c<=Ox1f!lc==Ox7f | 1c==0xa0l [c==0x7el |c==Oxf f) ? 


long htol( p ) 
char *p3 


{ 


long val = OL3 
fiat ¢3 


While ¢€ Cc = Xpt+ ) 
if ¢€c >= *0" && co <= °Q* ) 


val = ¢ (val<<4) & “OxOf >) + (ce - 70" 03 
else if ¢ € c l= Ox20 ) >= ’a’ && c <=. "Ff? D 
val = ¢ (val<<4) & “OxOf ) + Cow ’a’ + 1005 
else 
break; 
return( val 93 


FAS Ll 


02468 ac e*)3 
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ae a Oo) 
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ltoh6( p, val ) 
register char Xp; 
long vals 


int i = 63 
int 3 


p += 63 
while € in-=) € 
c = val & Ox0f; 
xX--p = jtoh( c )3 
val >>= 43 


itoh(c ) 
register int C3 


return( (cc >= 0 && c <= 9)? c+’O0": Ct’ a’-10 D5 


itoh2¢ p, c ) 
register char xpi 
hae Cs 


= iton( (c>>4) & OxOf 
1] = iton¢ c & OxOf 03 


*p 
pl 











Addr Of 25S aS AG! 8 Oe ashe Bod pent 





000040 4c69 6beeb OOO 0000 0000 0000 0000 0000 
000050 0000 0000 0000 0000 0000 0000 C000 0317 
000060 4d61 6b44 69F2 0000 0000 0000 0000 0000 
000070 0000 0000 0000 9000 0000 0000 0000 0319 
000080 4d64 69f2 000 0000 0000 0000 0000 0000 
000080 0000 0000 0000 0000 0000 0000 0000 O31b 
000040 4d65 7267 €500 0000 0000 0000 0000 0000 
0000bO 0000 0000 0000 0000 0000 0000 0000 031F 
0000c0 4d66 7265 e500 0000 0000 0000 0000 0000 
09000d0 0000 0000 0000 0000 0000 0000 0000 0321 
0000e0 5072 6f63 £300 0000 0600 0000 0000 C000 
0COOFO 0000 0000 0600 0000 0000 0000 0000 0324 
























Addr Om “2 BP od SG 7S oS “ab Mctd ef 


000100 5265 6e61 6de5 0000 
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ame 9 Ufole 


fold (27 7 4 Vv eTRE LHRH RRbIAVYY FE CH. MPAs head Dik 
ENMRRIS'-20O LIL THELETL IVY FELTHE TANI ELT O HA 
TSZCEPCHSZD IVI OW) CF, 

FAT AAs head LIZEAEMUCIOC, BK fold Cw THI BEA 
LET. fold (dt fp iC ko CHESNRTIT AND SAURFEFORAIA Cir ¥ 
To MERZ S RHR SARLCHA, LMEHAAGRUICA YZ x 
YREUTRSEPA, range CHET SP ELILTOR (HELMET LT 
SOIEELET, 

fold (SKN £5 lL Tite) LES. 





OS9: fold foldicc —10! head ~—10 





7k fol 
d x 


7k usa 

ge: fold < 

-80> (file 

} <=80>, 
x7 


#include 











fold xs 





ok 













“xk usage: fold <-80> (file) <-80>. x7 









#include <stdio.h> 
#tinclude <ctype-h>. 







define YES 1 
#define NO O 
#define ERR (-1) 










int range = 80; 7k range of line x7 





main¢ arac, argv ) 
int argc; 
Char xxargvs 







{ 
FILE Xfp, X*fopend 5 
char Xp3 
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int exists 


if ¢ € exist = option( argc, argv ) 
usage ( 3 
returns 

) else if ( exist ) 
while ( --argc ) 


L 
i 
" 


if ¢ ¥(p=k++argv) == ’-" ) 
cont inue; 

if ¢ ( fp = fopen tp, “r* >) >) == NULL) ¢ 
fprintf( stderr, “can’t open ¥°%S¥”.¥n~, p 
returns 

) 

fold¢ fp 5 


fclose( fp di 
, 


else 
fold¢ stdin )3 


usage © 
( 


fprintf<( stderr, “usage: fold <-80> 
) 


int option( argc, argv ) 
int arses 
char x*xargvi 


char xpi 
int exist = NO: 


while ¢ --argc ) 
if ¢ *(p=k++argv) == "-" ) { 
if € isdigit( Xt+#p ) > 
range = atoi( p )3 
else 
return( ERR )3 





} else 
exist = YES; 
return( exist )3 
o) 
fold¢ fp ) 
FILE *fp3 
{ 
init: Gi 45 
n= 05 
while ¢€ (cc = getc( fp) ) != EOF ) 
if <6 °¥N? 
n = 03 


else if ( t+n >= range) { 
putchar ( *¥n’? 03 
n= 03 


) 
putchar( c )3 


{ 


(file 


<-B80>.¥n” 5 


ERR |! range == 


> 


0) 


( 
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ee 2.0 > fed 


ENAVY PZ FAVMEAPY=APLHAYVETS SOC, 

MAB SIL Le 7S eel Ctbonkes, Le A7VDLF 4 y bRRDSN 
ECHERICTDNLT IMHSMBZENSZCLLHYN ELA, 

HBIM (EI is, 


OS9: fed file 
DEGVICATANMBeBELET. ER 7PANMOWRME oWORWVYAI 
OS9:fed file 10 


cL, ArA whine 25 6754 bE CHlo ROL 7 VBS (1 088) Hh 
HLET. TRANMBLULA PRG i 6 MTR CHEETA, 
COYADC7S &ld, WIC7 AMIS 25 6784 b HE CHA Peqic F 
EY, PA AT ELD M7 Y CSRS) EA. RRLITANMAEL 
T@MASDLDSHET ILM 7 Y & [ARI ET, 
“eB, FAVIRVY AI PAMELFT A y RTSCLIADECAZRSHORD 
CMLL TH VET, 





file editor 


file = fed.c sector = 0 
ie) 


$2 Bie A. Oe Ge 8 8 oe I ed. et F O02468ace 
+ 7k file scree 
3 on editor aa 
2k usage: fedi 
* t file <sctor>. 
X74. o#include 
<stdio.h>. .#def 
* ine ERR (-1).#d 
: efine YES 1.#de 
+ fine NO O..FIL 
> E xfp3.long ma 
* xscti.char xfna 
> mes...main(¢ argc 
> , argv). in 
7 t aragcs. ch 
> ar kargvl);.(. 
FILE *fopend 







































































58 Cit S7TOITA 


MALES ET TANE, e7PBSBLULEZIROP—-FRAZ Wy 
LIRR S N,V NOS ERLET. A-V IVE — Shin THERON IC BD) 
LTLP4 y KLTFSa, 

HEX€—FE(S1 6H 2HICEZAHE-FC, ASCIIE—FLiEX+ 
FIVFIZEZAHE—F CH, 

KO (LEH BARS HS ES, 


Beles SPACE IX PAB H) 
Pareles BS LX FRBD 
LX LBD 
LOE Pew) 
SHIFT, >) #.7213CNTL+F ASCIL€= kh“ 


SHIED tt S"S70 1S CNTLAB HEX B-s 
SHIFT) + the 7S CNDLAY HOLIIN 
SHIFT + | ¥2IZCNTL+Z ROR Irs 
HOME W-ARYY ayn 
CR KOTO IGEN 





*K 7272 L FM-11 Cli SHIFT + 7 —VY VX — (dh ZEA, 


FAS FLEARLKE ( SODMAICAIFS CEMCHEEF, ZORDYV—-ZX 
e3ZDICIT CT, Belay we UCRETy, 


1, SPveTE FS. 

argc BK Oargy Sb LIC ZH yy bT SIP ANEFA- TY LRP 
AYbKFSZRAISRERDOET, TRANDLF SY y bISBIM edit DFE TW, 
EOWRCLIA—*ANy FORIEBLOHTSGOET, APY -VY EF iy ho 
BRISIE I RFA LEME SEI LTIEFR, By ba-VE-BEED 
EFELI-NY7SENTIAY EF OTC edit OAC IHN IC DIN y 7 BAR 
ILL, PUFF AMTRIZLI— Ny PEO LICELLETF, 
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ERY. AMHNR COHN YIFUYTENZLY PT UI4{LDBEMCHE 
(ZoaTLEVETONC, HSMPUHM setbuf lCLothysyv IP VvINE— 
FIELTHS EY. 

FFANMMREWUELOLH ty PERET SRO, BE maxsct 27 7 4 Vv 
DRKEIVSR GRC Y PLES. CHishoOWR 5 > SeLETL, WIFE 
BOLILMRS DSH THETH SFU NVICBRLTHAET, 

LIAN yy 7 DEN ITE & LC Heb He MI system PIB? Hi > T, 


system( “tmode -—echo” ); 


EFS CETCTA, WHWrb tmode MHF ZO LMACTH6, VAFAIA— 
Weis THE NAP 4 APYVPPREAMZATLEWEF, OS-—IACIZIS 
ZOOM getstat B KU setstat MHRBSNTrET, 


2. edit 
LDIBUNETTANMORRBOAN BEV, Ny PP ORME LET. 
edit ~D5|Ksct LED AI MSMOSCLEERLETR, BHy bTAsX 

JP ts edit MHCHEALAMRES, LFA vy bPLRMRE -ANDEICT 4 

AFIC#BSAUHOU CIES. VORA 25 69X44 OMY TP ECHEELTH 

WT, ENLDAS RIIFAMICRRBICe 7 I CEBRAAET, GBKITSRBIC 

LEYS MBAAA CLUDE POMBE LD ETO yrn'CHEUTFS 

V5 
edit [SETHE SNRL7IDNRe SY 77 buf CHRAAAETHR, TI—- 

7 AA SO POW ic“fed abort." KRLTH SLES. 

TEM MAIAA RHA ls chgbuf FOU LEST, CM chgbuf BAZ | —-yv= 

Faybitkot yy» 7rONReEBSSBZET. chgbuf (S27 V-v ary y 

bERIFEMOA—-I-—FSBLEF. FNILKO 3 MBHICMESNTHET, 
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EOF MATRIC 7 TD Le HET 
BACK Le7 Fic db eS. 
NEXT LEZ? TANED. 





2CA36, chgbuf OK LAME O FR aR IE while 1 -TP*# Kit T, 
“fed abort."%@RANL THI LET, CDGRAIL TORT INDBSAAII TIN 
Se Ag 

EOF &M#AHRT & LRM HOES. APY -YEP 4 y bis 
WEAN REDE -ANeS LICL THS|SRH, ¥-K-FOHOEOFCHSESC 
DHS HS CENRUMODANUBTCEE<, EoTLEIDTT. ESC eMMIEL 
THATHLVOTCHTA, FUOFTFAODRITX-ELTFMACHVORODE, AN 
BEYVSAVIPLTRMZSCEIESZ EWI CEDS, CHEZDEEICLT 
BC CLICLELA.VSAVZ bse PER SESAME GLE Ja) 

BACKBEUNEXT#RORM, LEZ OBMLREDMT 7 AIO BH Ic 
BPE PERN, LBLVAFAR VEY 7 PANOYA ReMA CORBIS 
ALe77edjI-ER VALET. 

C7 XittAWAIL readbuf CHTWET, C7PRSESCICLTL PSN ALE 
HAY —-7L. 25 67°54 be getc LET, RHCEO FD RNS NRHA 
NUR ¢ bHAIAA TEEOF DKS NRMITETY 5S, EOFRMMRICIE¢E 
GAR LSE LORY 7 PIER eKAUTBE ESTs 

47 IADE#S IAAI writebuf CHT ET. readbuf Oh; & falc 1 KETO 
pute THAUAATHEETR, 774 VOR) ICELRUWAIZEOFARENE 
FOC, FO break UTHSAAELHOET, 

LRMDT. PTANODEREDL TZ FELT AY LRA, EOF P55D?S 
AbBEF AY hEDEDIETEETM, BEAENECADCERLTPSW. 

HSIAD HNC writeok CHES COET, OLMPMELTLEDTEDUD 
PREAAATIELS EWES WLMLTR Ska, HET T A, 


writing.. 








FOS LB I 


7 slae 
Not write.. 
DyR-VERMRETKO (ERILHO) L7VICBV ET, 
RIYN-VEF A y PICBARTIC. HAAR NY 7 POWNR SE MM ICRAT 
ZO MK dump CH, CHld, PLHAMZ SRY CHRO FY » THC EZ 
ZPRMicz%e 0 $TNC, KC coredump HRME UTHLET. 





3.  chgbuf 

RIYN-VLF4 yy bkFSZOMPR chgbuf CF, ANIMSAHEXE-FE 
ASCIIE—FO20RHSES LIsICMNE LED, TNHEDE—FOMO 
MH) e HHT ZOE ERRHMECLET, 

MITISHEXE-—FCOLZFHY »y bk ld hexchange C773, ASCIIt—-F 
COLZF 4» bid ascchange CHEF, CH EOMRMILE— FORMA -—Hre 
(LEF 4 y PRGOKIGSE—DHMSNRMGIC EDA -—BERLETDOC, ENME 
— BBD 2 EGA ICR — PRR ES. 

HEX€—F CIs, 166 241O5 SB bMS BIC SOM Piss blows 
DPMATREIMERSZOOTC, Est FORYES, Phteyd bogie 
NOMMHEHO high E77TELTMALET AF YV-YEF 4 y BOX — 
DH S(ECOM high Okie Lo CKbDTKETF, 

H-AHLSNICMIOS SH SSK % case MCHADILTTH) EF.CD 
Ht Citic TVS hexlocate (4, HEXE— FMIYy 7THCORAY FZ pt ek 
high IC ko CL PSNAMBIC A -—VVEBMSESRRTH. ER. E-FO 
Wie hlos, FAY eHRABZRMGS 1 OMECASCI LOM RALBNS 
Ze lFAUlEe ) FAA, PARK putbuf (ETORMHDLDC, ASCIIE-FRHS 
WELLES. 

ASCII€—FCId, pt Mic E> THRICE RE DIRE SLE TOD Cath ld 
We GPM MIS DEF PIED KES case MIC EoTH-— LMS EMO E 
ie 

BI locate (SET OKROIUY A-VVEBMSHETA, VAbPCLADM— 
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3ADF-—FILLTHN ETOCOOFEFETCILFM—7, 8 CleHMAERA, HK 
DAEIICRELTF Sk, 


locate( x, y ) 
int xs yi 
{ 
static char locbuf{3] = {( 0x12, 0, 0 13 


locbuf{1] = x3 
locbuf({2] = yi 
fwrite¢ locbuf, sizeof (locbuf), 1, stdout )3 








cM chgbuf.c D7 74 VMLTFOEE CHOOT ATF AICHACRET, GES 
6, ACs buf FEAF Y-YIEP 4 y bhCEETSLWAGRIDIDNILTFSEWOD 
CTD, COYRILMBLADETH § VES I ETD, 





o* file screen editor xe 












7k usage: fedit file <sctor>. 





#include <stdio.h> 





#define ERR (-1) 
tdefine YES 1 
#define NO O 











FILE xXfps 
long maxsct; 
Char xXfnames 







main( argc, argv ) 
int argc; 
char xargvl]s 


FILE xfopendO 3 
long atolO, flengtho s 
long sct = 03 
























if ( argc != 2 && argc 1= 3) ¢ 
fprintf( stderr , “usage: fedit filename <sector>.¥n” )3 
returns 









argc > 2) 







sct = atol¢ argv[2] )3 
if ¢ ( fp = fopen¢ fname = argv(1] , “r+” ) ) == NULL ) (¢ 
fprintf( stderr , “can’t open.¥n” )3 






returns 











sct > ( maxsct=(f length (fp) +BUFSIZ) “~BUFSIZ-1 ) ) ¢ 
fprintf( stderr, “sector number too big.¥n” )3 
returns 















setbuf ¢ stdin, NULL )3 
setbuf ¢( stdout, NULL )3 
al lowecho¢ NO )3 
edit( sct i 
allowecho( YES )3 
fclose( fp )3 












long flenath¢ fp > 
FILE *fpi 

( 
long ftell Os 


fseek( fp, OL, 2 5 
return( ftell¢ fp) 0% 
) 


#include <sgstat.h> 


al lowecho( echo > 
int echo; 

{ 
static char buffer(32]5 
static .int echomode = YES: 


if € echo) ¢{ 
getstat( 0, 1, buffer ) 
buffer[4] = echomode;s 
setstat( 0, 1, buffer ) 
) else ¢ 
getstat( 0, 1, buffer > 
echomode = buffer(4]5 
buf fer({4] = NO; 
setstat( 0, 1, buffer ) 


FAST LG 








7k file edit xs 
#include <stdio.h> 


define YES 1 
#define NO 0 
#tdefine ERR (-1) 


#def ine BACK 0x19 
#def ine NEXT Oxla 


char buf (BUFSIZ15 


edit¢ sct ) 
tong scts 

{ 
extern long maxsct; 
int exkeyi 


pflinitOs 
while ( readbuf ( sct ) != ERR) ¢ 
if ¢ © exkey = chgbuf © ) == EOF ) 
break; 
writebuf ( sct )3 
if ( exkey == BACK && sct > 0) ¢ 
SCt~-5 
) else if ( exkey != BACK && sct < maxsct ) 
SCttts 
) else 
cont inues 
) 
‘ locate( 0, 22 0% 
fprintf<( stderr, “fed abort.¥n” )5 


int readbuf ¢ sct ) 
long sct3 
{ 


extern char buf (15 
extern FILE Xfps 
extern long maxscts 
int i3 


{ 
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if ( sct > maxsct ) 
return( ERR )i 
fseek( fp, SCtKBUFSIZ, 0 D5 


for ( i = 03 i < BUFSIZs i++ > 
if ¢ ¢ buflil = getc( fp >) >) == EOF ) 
buf lil = 03 


dump ( buf, sct )3 
return( NO )3 
) 


#define CLS Ox0c 
#define LINSIZ 16 
#define toprint¢c) ¢ ¢ (c) < Ox20 II (c) == Ox7f II (c) == Oxff >? *.%! (ec) ) 


dump ( p, sct ) 
Char xp; 
long scts 


extern char xXfname; 
int pt, Ins 


putchar¢ CLS )3 
printf ( “file editor¥n¥nfile = %s sector = %ld¥n”, fname, sct )3 


print? ” oO 1 23 ¢ 8 6 7 GrSie aiwib « ctedeuemt” 94 
printf ¢ ~ 02468ac e¥n” ); 

PRINT C © meee meen em ml) Sie min, (aime) ei as 
PROUT ee marae em mms a ¥n” 5 


for ( In = 03 In < BUFSIZ; In += LINSIZ > ¢ 
printf ¢ “%02x =“, Inds 
for ( pt = 03 pt < LINSIZs ptt+ ) 
printf € “*02x ~, plintpt] & Oxff 5 
1>J ght D a ak ail a 
for ( pt = 03 pt < LINSIZ; ptt+ > 
putchar( toprint¢ plintpt] ) )5 
putchar ( *¥n’ )3 


writebuf ¢ sct ) 
long sct; 

{ 
extern char buf (Ji 
extern FILE xfp3 
int if 


if CwriteokO ) ¢ 
fseek( fp, sctxBUFSIZ, 0 )3 


for ¢ i = 03 i < BUFSIZ; i++ > 
if ( putc¢ buflil, fp) == EOF > 
break; 


int) writeokoO 
int C3 
FOR NCAT. 


locate( 0, 23 )3 
printf ( “Do you want to write this sector ?(y7n) ~ )3 





if ( putchar( c = getcharO ) == ’y’ Il c == *¥’ > 
printf ¢ ~ writing.«¥n” 3 
return( YES )3 

) else if (Cc == 'n’ Il co == °N’? ) ¢ 
printf ¢ ~ Not write..¥n~ 3 


return( NO )3 
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NH 
I 
| 
HH | 
it 
7k Change buffer xs 
H 
#include <stdio.h> WN 
extern buf (15 il 
extern FILE xfp3 \ 
extern long maxsct; } |} 
extern char xfname3 
#define YES 1 
#define NO O 
tdefine ERR (-1) 
#define RIGHT Oxic 7& right x7 
#define LEFT Oxid 7k left x7 | 
#def ine UP OXte 7* up x7 | 
#define DOWN Oxif 7% down */ I} 
#def ine BACK 0x19 7* backword sector “Y x/ 
#def ine NEXT Oxta 7k next sector OZ &sS Wi 
#def ine MOVASC 0x06 7* tO ascii ward Wi) 
#def ine MOVHEX 0x02 7k to hex mode “B Xs 
#define BS 0x0! 7* back space */7 ] 
#define SKIP Lind 7k skip *7 I 
#def ine CR Ox0d 7*& line feed x7 ] 
#def ine HOME Ox0b 7* home x7 
static int pts 7k buffer pointer xs MI 
1 
int chabuf 0 
{ I 
int ct ii} 
pt = 03 AN 
Tor CG 387 
if ¢ € c = hexchangeQ® ) != MOVASC ) NONI 
break; MN 
if « € ce = ascchange® ) != MOVHEX ) ai 
break; 
) 
return( c )3 
) | 
||| 
int hexchange © } 
{ 
int high = YES; 
int 3 
hexlocate( pt, high )3 I 
switch (Cc) ¢ 
case RIGHT: | 
case SKIP: | 
if ( high > Hi] 
hexlocate( pt, high=NO )3 | 
else if ( pttl < BUFSIZ ) | 
hexlocate( ++pt, high=VES )3 
break; 
case LEFT: 
case BS: 
if (high && pt > 0»? 
hexlocate( --pt, high=NO ) | 
else if ¢ thigh ) ih} 
hexlocate( pt, high=VES 3 
break; 
case UP: Ht 
if Cpt-16 >= 0) MK 
hexlocate( pt-=16, high )3 HI 
break; Hi 
case DOWN: 
{f ¢ pt#16 < BUFSIZ ) Hh 
hexlocate( pt+=16, high )5 
break; 
case HOME: 
i 
Wa 
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hexlocate( pt=0, high=VES ); 
break; 
case CR: 
if € (pt&"Ox0f)+16 < BUFSIZ2 » 
pt += 165 
hexlocate( pt, high=VES ); 
break; 
case MOVASC: 
case BACK: 
case NEXT: 
return( c )$ 
default: 
if € (ce = ahtoi¢c) ) == ERR) 
break; 
if Chigh) ¢ 
buf(pt] = c x 16 + ¢ buf[pt]&Ox0f )3 
putbuf ( pt 05 
hexlocate( pt, high=NO ); 
) else ¢ ; 
buf(pt] = c + ¢ buflpt]&0xfO )5 
putbuf ( pt )5 
if ( pt+1 < BUFSIZ > 
hexlocate( ++pt, high=YES ); 
else 


hexlocate( pt, high )3 
) 


break; 
) 
return( EOF )3 


hexlocate( pt, high > 
int pt, highs 
{ 


locate ( 5+ (pt%16) *3+ (high?0:1), S+ (pt716) )5 


int ahtoi(c > 
tints pce 
{ 
if €c 3= "0" && Cc <= 9” » 
return( c - °0” )§ 
else if ¢ (Cc = tolower(c) ) >= *a’ && C <= re) 
return( c - *a’ + 10 )3 
else 
return( ERR )3 
} 
int ascchange © 
{ 
int 16% 


while € (Cc = getchar® ) != EOF ) 
switch (c) { 
case RIGHT: 
if ¢ pt+1 < BUFSIZ > 
asclocate( ++pt )$ 
break; 
case LEFT: 
case BS: 
iy. Cpe > "07 5 
asclocate( --pt )5 
break; 
case UP: 
if ( pt-16>0>) 
asclocate( pt-=16 )¢ 
break; 
case DOWN: 
if ( pt+16 < BUFSIZ » 
asclocate( pt+=16 )5 
break; 
case HOME: 
asclocate( pt=0 )5 
breaki 





case CR: 


Fos LG wy 


if € (pt&="Ox0f) +16 < BUFSIZ ) 


pt += 163 


asclocate( pt )3 
break; 
case MOVHEX: 


case BACK: 
case NEXT: 


return( c )3 


default: 


if € C >= 0x20 && Cc != Ox7f && Cc I= Oxff ) ( 


) 


buf [pt] = c3 
putbuf ( pt 03 
asclocate( ( pt+l < BUFSIZ )? ++pt: pt 3 


break; 


} 


return( EOF )3 


asclocate( pt ) 


( 


) 


#define toprint¢( c ) 


int 


pts 


locate ( 56+ (pt%16), 5+ (pt716) 3 


putbuf ¢ pt ) 


{ 


locate< x, 


{ 


int 


{ 


int 


pts 


int cs 


€ ¢ @) < Ox20 Il (ec) == Ox7f 11 (ec) == Oxff >? %.%! «ed Dd 


c = buf(pt] & Oxffs 
hexlocate( pt, YES )3 


putchar¢ 


itoh1¢c % 16) D3 


asclocate( pt )3 
putchar¢ toprint(¢ c) )3 


int 


static char 


ye) 
Xs Ve 


locbuf{4] = ( Oxib, *=", 0, 093 


locbuf{2] = y + 0x20; 


focbuf [3] 
fwrite¢ 


itohi¢ c ) 


int 
i f-6 
else 


else 


cs 


C 2= 0 && 
return( c 
if (Cc >= 
return( c 


x + Ox205 
locbuf, sizeof (locbuf), 1, stdout )3 


ec <= 9) 

oe TORS 

10 && c <= 15) 
='10 % 2a" ds 


return( °27 3 
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DLED 3 90D I TANMRAVYANANTSBIAEMOAEGICLET. 
$9, VSAT TA Ue. 


fed.c edit.c chgbuf.c 
DEGCRMEMTES. 
OS9:cc2 fed.c edit.c chgbuf.c 


COR, main &Gie7 7p tv ERMA ITMILEY) EA, 
& Svrld, chgbuf.c & He CHAT S A HELER HADES, 


OS9:cc2 chgbuf.c —r 
OS9:cc2 fed.c edit.c chgbuf.r 


XLT, chgbufr SRELTHSEF. FITNIZHI RUICCDY—AYEA 
VISA WS SH FMAS ARIES. 

IRGRIZ. FON y THALES coredump.c SIF THE ET, P—-Fl[Reld 2 5 6 
PNA RONY DP PAOWKA YI, BPOGBULT FU AELTHAT ZRH long 
integer MUCH. long OIZS—-HMIZT PARA Y PIL 4 754 | CHENSZR 
HCTF, Leeds T, coredump *# HAF SWRA CKO LIAR L CEASE 
(FilE%) EA. 


long *coredump\() ; 





#include <stdio.h> 
#include <ctype-h> 
t#def ine CMASK Oxff 


coredump( p, pos ) 
Char p(161(16]5 


long posi 
{ 

int is Ji 

pflinitos 


printf ( ~ addr [© hated mm” al ing aia «art - aay i; Sau = a il = c-Si a t 
printf¢ ~ 02468 aC e¥n” D5 
PRINGH OC HeSeen Re ee ae re Re Se Se EE SS Se RA a oe ee ae Y's 
PRINT C ** Sate Beka ese ee ¥n” 5 
for (i = O03 i < 165 ee Pe" 

printf ¢ goin “, pos 05 

pos += 16 

for (Jj = "03 J < 165 J++ ) 
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printf ( “*02x ~, pliJ[j] & OxOOff »5 
BATHE 2) me 
for ¢ j = 03 j < 163 J++ ) 

putchar( isprint¢ pLiJ(J] >? plil(j]= *.’ 05 
putchar(¢ °¥n’ 03 





Cea eal "hb kep 


cplsheSIE-PUTFIATT. OS — I DMEM b DICH TOBE e IT 
MATH V ETD, Biche LM SHAD ET. 

EPEAT Ya wel we eit sR, ‘wide FeV TEV DSwL 
BMvrLVjzEe-—KC LAA bFOAL-LTMSEF, F-STFNVBCHEL 
TBA IED DOVES. wala 7 TA MVONRAHOT 4 V7 bY) SHEETS 
DNC, BROT TAME SEI AL-TSYRICHMOEF. PZT, 


OS9:cp filel file2 files —w=/d1/tempdir 


&¢4k&/dl/tempdir LQG HAUT bY El, ‘filel’, ‘file2’, ‘file? c\99 7 7 
AMBAE-LEF, COM -—w=’ CHET SE DIEF 4 V7 bY CHUM 
DSA, 

Kew HR, C7 7A Ve 2 OFF LICL ORM COIL #1 


DHE LREHZEOT 74 Pb REM ATI EL 1O bP eo eR, 








PREAH PD DMEM NAD E-LET, KEMETEKOEI SHSM SH 
CENCE) ESS 


filel file2 files —w=/dl1/tempdir 
filel  file2 


filel 
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‘-w=’OPERES ICT TAS ZOE DIZ CTL. 7741 
DER20TCR, ‘-w="DHEDMAAZDE EW OCIMKPREI ET, 
WIOBDE JI -w=’OIR ELT TA NVEORICHo TORCH TH EW 
FEI LELEF. FMROILERATY 3 VOM TSMR MIC LTB 
SEF, APY ar CET SF 1A RYU BZERS ICSE MMO RS, YY CHE 
DETOUR YS wild CRETSCLICLET, ERED 5 RBA IE 
NULL iC LTBREF, 

“EB, BRUATTANOZ IZ bicld 





ry carr 


fopen( p, “w” ) 


DED “w CH-FYELTRETOTC, &LMUBHODT F 4 VASE LB 
B. WORAZOTTANEMRLTLEVRETO CHICERLTPFSY 


BY option WA TY avORELLEF RIT AVE OMMIZ LoCHS 
CEMPBbD TC SLEDS, option DPC7ITANEDREMZ, EHUB 
FOEILESF, BLATT Y a VICHY DS a LBA TA NOKNBD VY 
ICERR@KLEF. 

main [3 wild BHOPLOIML TIT ANUOMI2 hs CHEDH A ET OT, if 
-else THAT LET. wild PASWAILT TA VE DRIZMRS ) EHAD 
C wild SHICHINSDERHY, NMS. 7TRANVOMICLDTCHUGEF, 

ER PMOOMAL UT filecopy tb. HOPHRLTHAET. CHIT 4 
WMIKA YS fol CHAENAZTFANMDH, fp2 CHANZTTANAIE-F 
SNCF, KAW IACI COMMA, (WILTED RM OB EBA BR 
TDED EM THLOMZ HV EVA, LRA TIC-DAE-— FLOW 
BOW KIS Ko TREN ICs TRETOC, PEYOFME DU SPU Oil 
LH VET. WB COC SM SORBET CBRET, 

bLi-WA TY av RMboRYWA, setbuf PKC YY 7 UY TREAILLTH 
(DER HVED, NY DPV YTORMIEST 7ALOA-—TPvYOMBITITI Y 
BR) FOC filecopy DHICANTHI ETF, 

& T copyl, copy2, copyw t9 WR EI LMRAUEA CHOETD, HEN 








Fars LG vil 


TRAMP OREM, PrAUPbT TAM, ELC -w=’OPED DH SYA 
LRDTWRETF. CONEJIPIFTHSDISENENTT TF 4NEZORLADY 
LIEEDPSCH. LIFTS. B-O7 7A NK SIRT ics argv(1] CleHkA& 
DCF. ELIATY ay RHEPAOSEVODCHMHS 

copyw ClLIE-LOT TA NBE Fo TPS EINES) EA, TMI 

=CHELR FAVA RYE DORA IE-LHOTTANRERIT TRA 
TEIF THEA CEH) ERA. DE-HDT FA WITIE-MRIZINAY ARCH 
EHETR, PE-KOTTANBEL THEI TRE SCUINITHS EVO, & 
D-H POVNVORAEIF EO CT. VEVNAY AK DBD Of 
EMD VR ZDOTT. 

PEER BITS EOROIWV RVD ODMH) EF, rindex BENT, MER 
DAR DEL ITZI REL, ADORE RAY I CTERLET. ERA 
OP SEP ORYAIANULLEKLETS. wilde tET REM Le, rindexPikS 
KEM (PPA) & AIC A” BRA CHIT EV SU CT. 





oe cp -- copy file(s), non-buffering version x7 


7% usage: cp <opt> (file) <opt>. 
opt: -w=DIR destination directory. 
-u un-buf furing. x7 


#include <stdio.h> 


#define YES 1 
#define NO O 
define ERR (-1) 


char xwild = NULL3 
Int unbuf = NOs 


main(argc, arav) 
int argcs 
char **argvi 
{ 


char *p3 
int fcounts 
if ¢ €( fcount = option( argc ,argv ) ) == ERR) ¢ 
usage 0 5 
returns 
) 
if (wild) 
while ( --argc > ( 
if ¢ ¥(p=k++argvy) == *-" ) 
continue; 
copyw( p )3 


) 


else if (¢ fcount == 2) 
copy2( argc, argv )3 

else if ¢ fcount == 1 > 
copy! ( argc, argv )3 

else if ¢ fcount'== 0 ) 
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filecopy( stdin, stdout )3 
else 
usage () 5 


int option( argc, argv ) 
int argc; " 
char *x*argvi 


char xp3 
int fcount = 03 
while ¢ --arge ) 
if ( ¥(p=xX++argv) = 
switch ( pli] >) ¢ 
case *w’: 
case *W’: 
if ¢ p(2] == 
wild =p 
else 
return¢ ERR )3 
break; 
case ’u’: 
case "U’: 
unbuf = YES: 
break; 
default: 
return( ERR )$ 
’ 
) else 
fcount++ 5 
return( fcount )3 


usage () 

« 
fprintf( stderr, “usage: cp <opt> (file) <opt>.¥n” D5 
fprintf( stderr, ~ opt: -w=DIR destination.¥n” > 


3 
fprintf ( stderr, -u un-buf fering.¥n” 3 


filecopy( fp1, fp2 >) 
FILE xfpl, x*fp2s 
4 
int ce 


if ( unbuf > ¢ 

setbuf ( fp1, NULL D3 

setbuf ( fp2, NULL )5 
) 
while ¢ (cc = getc( fpl > ) 1!= EOF > 

putc( c , fp2 5 


copy2¢ argc, argv ) 
int argc; 
char *karavi 


FILE *fpl, *fp2, xfopend: 


char xp; 
while ( -~arge ) ¢ 
if ¢ *(p=X++argy) == "=" ) 
cont i nue; 


if ¢( ( fpl = fopen( p, “r” >) > == NULL ) ¢ 
fprintf( stderr, “Can’t open ¥°x*s¥".¥n", ps 
return 

) else 
break; 


a 
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’ 
while ( ~-argc ) { 
if ( X(p=k++argy) == *-" ) 
continues 
if ¢ ( fp2 = fopen( p, “w” >) >) == NULL) ¢ 
fprintf( stderr, “can’t create ¥°Xs¥".¥n", p 5 
fclose( fpl )3 
return 
» else 
break; 
’ a 
filecopy( fp1 . fp2 d+ 
fclose( fpl 3 
fclose( fp2 5 
} 


copy! ( argc, argv ) 
int argc; 
char *Xargvi 


FILE xfp, xfopend; 
char *p3 


while ( --argc ) { 
if © ¥(p=k++argy) == *-" ) 
cont inues 
if ¢ ( fp = fopen( p, “r* >) >) == NULL ) ¢ 
fprintf( stderr, “can’t open ¥*Xs¥~.¥n", p )3 
returns 
) else 
break; 
) 
filecopy( fp, stdout )3 
fclose( fp 03 


copyw( p ) 
char *p; 

( 
FILE Xfp1, *fp2, xfopend; 
char dest (BUFSIZ1; 


fnamec( p, dest )5 

if ( ( fpl = fopen( p, “r” >) >) == NULL ) ¢ 
fprintf( stderr, “can’t open ¥°X%s¥°.¥n~, p )3 
return: 

) else if (¢ ( fp2 = fopen( dest, “w~ ) ») == NULL) ¢ 
fprintf( stderr, “can’t create ¥°Xs¥°.¥n*, dest )5 
fclose( fpt )3 
return; 

y 

filecopy( fpl , fp2 5 

fclose( fp2 >i 

fclose( fpl )% 


fnamec( p, dest >) 
Char Xp, xdest; 
{ 
char xs, *rindex ©} 


stropy( dest, wild )i 
stroat( dest, “7” )3 
if (8 = rindex( p, *7*) ) 
strcoat ( dest, ++8 3 
else 
strcat( dest, p >i 
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HUIS SBN LF lc filecopy SMHTSCLIKAGHRHADSI ES, COC 
ILE D—-DOHRE LTA YV APY YT IWTHRNE TF, 

NID PY YT EKER Y 7 PELE) LICHRBL CHW CT, HH ICAR 
mea CA, KRIS CEE LOCT, Mmld-sy 77 EE CICHRT S 
BCTR, OS—9 TIF ALAN MHICT—-FOVTMFAZENSCLILSE 
7CB) AMICHZ452. FOUAREIASY PRBNEICHECTASZEIICK 
DTHET, CHEM DEW FiLH) EA, 

FSI" TIAL SBA, AP» PEOMMISENET. F 
CC. AHICHZSMAIOT FYLABLUEOYY REWMAZVERHIET, & 
tic (LBARK freemem & ibrk & HUH LET. freemem (LKGHOF-%ZYV TO 
WA ARIK, ibrk (444 REE EU TCTOLD)) TOMAS MHIRGT SZLLDI 
SOAS FRASER bE TS 

IPDAT PAUP TRADHECTA, getc +MokWBAs sU fread & 
fwrite @ Bis RIA IER L TARE OA Bo REO MRED oR E CAD, 
TS LAP ORBAEDEAZE-— FARE TLEWELR, Cid gete MDF —78 
PAY FIEL ZOO e Bbis s., 

42 read & write #9 HUICWYRMAELA CHAIDAITP TANK Y 
ICSE SARS EH RCT O, TAMURA YIP ONZE EESO 
(SHH CH. fileno MA (KliV70) HZIZTLVOTCS, 

read (348 L727N4 RE RABLARUICRAIA INA bREMLET, ¥ 
72 write [LE SUN SNA ARE ETSOCT HS read MKLRHCEOD 
EE write LTLELITLWVOTH, read lSEOFHSWVULI—-OMic ls" 
BRLETRL, ENHEV-TOMTREZLET. 

Lb MAI 72H 2s filecopy DH SMAOWIC, main DPC» 7 7B 
ROS TCEBMECT, 

main, 7%» 7 7 &2KM 4 getfree KE U filecopy &#l7 ¥ TF. 


7% cp -- copy file(s), self-buffering version xs 


7k usage: cp <opt> (file) <opt>. 
opt: -w=DIR destination. 
eu un-buf fering. 





#include <stdio.h> 





ae a a 


FATS LAP 15 











#define YES 1 
#define NO Oo 
#define ERR (-1) 


char x*wild 
int unbuf 
Char xbase; 
int buffersize;s 


NULLS 
NOs 


uu 


main( argc, arav ) 
int argc; 
char *xkargv; 


char *p3 
int fcounts 


if € ¢ fcount = option( argc ,argv ) ) == ERR) ¢ 
usage 0 3 
return; 
H) 
getfreed: 
if ( wild» 
while ( --arge ) ¢ 
if ( *(p=xX++argv) == *-" ) 
cont inue; 
copyw( p )3 





) 
else if ( fcount 
copy2( argc, 
else if ( fcount 
copy! ( argc, 
else if ¢ fcount 
filecopy< stdin, stdout ); 
elise 
usage () 5 


a 
o<-<hN 
vvevve 


HOuoH 
as nsu 


getfreeQ 
( 
if ( ( buffersize = freememO & (Oxff) ) == 0) 
base = NULL; 
else if (¢ ( base = ibrk( buffersize ) ) == ERR || base == NULL ) 
base = NULL; 


filecopy( fpl, fp2) 
register FILE xfpi3 
FILE *fp23 


int size, pni, pn2, ci 


if ¢ unbuf ) ¢ 
setbuf ¢ fpi, NULL )3 
setbuf ( fp2, NULL )3 
while ¢€ ( c = getc( fpl >) >) 1!= EOF ) 
putc( Cc, fp2 5 
) else ( 
pnt fileno<fp1) i 
pn2 = fileno(fp2)$ 
while ¢ size = read( pni, base, buffersize ) >) 
if ( write( pn2, base, size ) == ERR ) 
break; 


i ou 





ED, BW < Zokm, Ke copy LIML TATE PEMNTAELK, 
77 A Wisi ICKEWED EWI CET os9boot HHMIAL. ROLIMLTH 
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ZEWplH) % AO FE L726 
OS9:date t; cp /nd0/os9boot /ndl/os9boot; date t 
bbAA datecFAVAUTFAIAlLG—FLTHAETF, 
non-buffering version ® cp 


OS9:cp /nd0/os9boot /nd1/os9boot 
OS9: cp /nd0/os9boot /nd1/os9boot # 50k 


buffering version ® cp 


OS9:cp /nd0/os9boot /nd1/os9boot 
OS9:cp /nd0/os9boot /ndl/os9boot # 50k 


copy 
OS9: copy /nd0/os9boot /nd1/os9boot 


OS9:copy /nd0/os9boot /ndl/os9boot #50k 





“ZB. ‘-WATY ay ete LRU 3 2S wPPoRCLEMIMZATHA 
Ea 

% L filecopy ETRY TACHORG, BIDDLE CADCIEVMLER 
ROBKOYARCTA, MRIIETR <BODY EtACLE, BRE TCICEIT 
CHEET. 





filecopy< fpi, fp2) 
register FILE xfpt3s 
FILE xfp23 

( 
int size, C3 


if € unbuf ) ¢ 
setbuf ( fpl, NULL D3 
setbuf ( fp2, NULL )¢ 
while ¢ € c = getc( fpl ) ) != EOF ) 
putc( Cc, fp2 3 
) else 
asmcopy( fileno¢ fp1 ), fileno« fp2) 5 
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#asm 


ifpl 
use /d0/defs~os9defs.a 
endc 


asmcopy: 
PShHS XY 
Idx base,y 
Idy buffersi,y buffersize 
sty 5S 


fcploop 

(da 7,s pni 

Iidy ,s buffersize 
os9 I$READ 

bes fcperr 

Ida 9,8 pn2 

os9 I$WRITE 

bes fcperr 

bra fcploop 


fcperr 
cmpb #E$E0F 
bne fcpexit 
cirb 
fcpexit 
clra 
pulS x,Y,pCc 


#endasm 
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2==2— 12> -caleu 


OS—9® Shell kD 6" UH AE S ai LATOR Se VERE L ELA. Chitavy 
FELTHA SIEM, HHE- PCAs CMRMMICHAT SZ CLD ATAECT, 7 
u7F Alk Pascal (Microware ¢('!) CHA NTIETAY, Basic09c BHF 
SCE ENIEEHHERLEMCLE F.POF FAA YING FON FF (HE 
HTT OTD) ITO ETR, Cirid, BEHRL TO < bie 5 AEE 
FARO BEE CVA DOM, DYNA FOMMEO—-MCT HH, GROMBRL OS 
2 o Gls re 
— eS 

calcu lZKICWNT £5 % 2 i) OPA AEA CAKES, 

IVY RELTHI (1H 1 ) 

THE PICA 5 CHES GHUBENTIC HES) 

IVY RELTHIL SL Avy FORA IVY)’ CRY > CHREBA S 
To 








| calcu : Bet 





Bi ZA, 
calcu : 34 * 21.0+(23/$22) 


athe — Ficlkv Se kid, AVY FORA AVY CRY oEMKEBHH 
WEDILES. HHE-— PIAS E'calcuwrt nj TOY hw CREFOT, 
EMRAICBNEANTFSEIICLEF. 





calcu | | 





ADE MAS, BREA © BE at L TiFoTHETFOT, VSAVUT 
WHET T 
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calcu </d0/file >/p #40k 


COMA CIE, RNS T Sli, BROMRMERI CEMBTCHE 
Fo PRIME MNES SERIE, KAMER L ES. El, IHD ES 
AMGAAMRE LT 3 WBZ TVET. EH AAAS Bells eT HACE L 
TRONTHY), PRISE UTHHSNET (QPPRHIMORET), F 
WCE, EBC WT + EK + MAOM CRM L THR ET. 





* ER 

COD aE CHG BUS, MBE ROK MSE. TN CHME LTihb 
HET, FTLCTHMAlEHW 2, 9*¥10*(-39)HRH1, 71073 8S 
CCT. HEIL SH OA DHE Ho TET. ERK. ANT SRICIXE Ub 
MECH MW) SORA WHETT. GB. BURL CRI OWA(I0.0£ 
ELTRbONEF., ROMICBA UMC SHOT EVA, PIZIT, 


8.2 (0.8.7 9U9 
1.2 8,4 D5O)7 
0.873456 
=7.2.3-40 =2.2 
734, El2 
ie ae eee (=1234ELTRHVET) 
5 62:3: 
(=0. OE LTRRETF) 


ER. PRAMS, 1 6HRELTANFSZCEMTSEEF, RRLGO 
© SIZ, BBS HE 1 6 HERTANS CLISTSE EA, 


$74 af 
$04ADFB 




















80 Oia Zay sh 


+ RAF 
COCHRAN BHF EIS, 2H FOE CH. WTS POE MOE & 
MME CHES NTO RED, 


j jf 
2 s 7 = % 
3 + = 


MHA OPEL ILO CT, BML ET, 














PMk: “SSF eee isis AA ex At 2 SEF IMs 0 

* I(RERERLET. PleirS Sr 2 #3 > Oo 6 
:REeALET. pl 8716 > 0.05 

¥ 1 MARRS KLE. pl 8 ¥3 2, 0 

% i KRERLETF. fil 8%5 3. 0 

+ Me ARLET. pl 8+4 ># 12,0 

— EEA L ET. Pl 1984-1014 -#970. 0 





BB. ¥, MSRM EL THORZETL. AOMIc dHMIBLEF, 


So DEEZ. 6 eee os, 0 
8. 9%0. 7 +e 0 5 
a ee all a) Re. 0 
shoves ee) Sek le yO 
28:2- oor (= Ah Sua dy ot 0 


He oLTHE Ud 2 WS & LCR ES NEFOC, PEI S HO 
VAVERVEDF. LRM DT., KOLILVOMIAMEWGEIHILH FH 
Ao DATCREWVGPMLL FEN ES, 

5 *— 2 Gide 9 ) 
2:5 41-2) (IE Ae) 
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* ER 

HMWE- FOL RL, BROMLZET, AVY FELTHICAD, RMI 
FAME CHD, HDRES BVO CHRD bY EAA. BRE LTH A SOIL, SA’ 
~'Z'D2 CHACHT. KKFEPMED RAM LH) EAA. BRICHKAT S & Sid 
KROEFUCHAMICHV ET. 





EE = BK 
CEB IEA’ ~'Z'D 3B EtLiv) 











fri] ZAK, 
a=7283+8324 
KX=66, 34/7874. 2 


X=7454+354/S#D 
X=X+2 


BSH OH IA Teva & SUL, MO VBR RAN TMUEWS CEMTCE 
Ed, HR “PM RAATUIL, TNTCORROBERSCEMCSET. 


* BUA 
PUI, 3 2M DV ET, REMI © SLMOEN CHS ET. 
BURA (512%) 


BUH Id, KOI SDENKTCT, 


try 
BAaPA YS 


PAD se 


AAR—KVY DAY 
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AAR KV yZPat py 
PARK YAP YVanuvb 
BRE GY 

T SPAR 

PEA AS = ik 
DARBY VDP HDHRAY 

PSA ISAT PD FORD BPAY 
PARRY YIP -PI VV av} 
arb 
Ieay hk 


cosh 





tanh 






arcsin 





arccos 






arctan 






arcsinh 






arccosh 





arctanh 






sec 








CSC 





DS Bie 2 
ALIAN— RY YZRAY b 
AAR yDaeAYh 

AAWR-BKVY yPAPyv Vary} 
LAA > b 

RE? Sea Th 

REP BQ Sy by 
AAAN-KY YAP A7eAY bk 
PARRY 7K -FarerAv >) 
FRAOSS AMY ZRH BAY Fe tik 

© (ARMROIK) BIEL LR ABIR 
MAB UKIS1 0. 0) 

Bate (URlse=2. 71828++- +) 
ay: 
ER 
PIP yY (GEA Y Py HICSS) 
FTN — (G/B EMI ELS) 
FAD AEB EDP Fe HP 





cot 









sech 





csch 





coth 






arcsec 






arccsc 






arccot 














arcsech 








arccsch 








arccoth 








exp 












BIBT S MOUS BY LOB, DIM ET, 





FATS LG 83 


* EO Hb 
BORMIS, BRUSKALRESOTROET, RHTSNATKO EGICEY 
Fors 





| answer = %& hex =% (1 6 #805) 





R27ZL, 1 6 BOR AILEMOMD IH UTOAT ODNHET. ER. 1 0H 
DEORMIL, FOUMOMAHAD 1. O€+10~1. 0€-10 0% Mics 
HOt, AVTWVBICBSNHET, CNLSEDKRARMHRMZ, 1 OF CT. 


ATSIC (SHEDS ELEY. Microware M Pascal H(Kld 9 HHT BVO HAE 
CTD, CORBET UTI A CISA DAHER OALTRETFOCENY 
PERN, RR 7 ~ 8 HOHE LD WIAD EW EICT, 


LI—-—PRC RBI, SlLKRRENECA, PHVIC, DI-ARL HS 
DPEGMDRO LIIKRSUNETF, 


error =~7—#3 occured at 77445 columns 


AILEGEIO, WMFAPEVILCERRLTETF, LI-BSlIMK 
DEFICRH TET, 





divided by zero 





syntax error 





overflow 





‘)’ expected 





function range error 








undefined function 





84 CEP SITRTIA 


Hr TMORAF 4 vVTRABZST SRW IS Pascal M Stack Overflow wth € 
ae 


-—FAFILORR— 

BN & Pi L Tha ¢ Mics, BNR vy Pau IC ER LT  6 RMill 
LTR CHES HOVER, COCA BE L Ze 08 RUAN L TV ¢ 
EWVIRREEND ELK. ANSNREAE RAMI L TW <¢ Old, HOCHEET 7 
B7IAUS—F), OMMECTHULEGEZSEOCH, ELC, COMBAROTITS 
FL (LIN Wt CHRMRL EL. FNC. MRNETAOTFTAMAT S 
TEDIZ, MILER VD SMELT. SMICMRER AML Ta 6 EGE CHE 
HEOTRWRELEG. 





#* AKO RIAA 

ET, MAROVUNGETE (BEF eZ Zea) WW CE SBM EPL 
BRBEZTAET, AN SNRAN OCF) [dX param £195 BAO (eS ld 
LENG C, ZA CMHMER NTS) CADTRAZLELEF, COCTHELOD 
IZ, I RPHAA CK SU-FYCT. HR. MABATERKEICL > THE 
BREVETR SH, IMFERPRRATS EWI CE OMB ee oTKEF. FS 
CC. REMIT SRA YY e QOL. —HeEKRABICHOET, 

Clr, getch £125 BHO KFRAAWIV—-F vy eR LUTAET, CON 
Fvld, MPMOPD ENA YY (point) MRL TH SWMORFS ch lewiAIA 
Ay KA YP eKOYMCEMSCES GHAAAERESEAR SAR Y TL 
x9 )s 





procedure getch ( var ch:char; var point: integer ); 


begin 
if point<=LENG then 
repeat 
ch s=param([point]3 


point:=point+! 
until (ch<>’ *) or (point >LENG) 
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BKA(LV RR FEM ORM (param) 





getch &9F Oi Sil getch& "FUT Lek 
DMpointMsHH eH Mpointy sy UF 


getch "POH L eth 
ChITKK SN SRF 


KULEAERLET. 


getch®FUHW Lit & Mf 


LOM-FYELZIORA VF (order, pointer C pointer (SHAH) & fo 
CRHDNDEPVEFRMELTAEL ED. KRMTSLCEOHMIC, BNEAHET 
<nayayy» inputparam &, BREMRT AZ TY 7 Ya Y number &{K 
ELET. COAT YA Vavitld, RAVISBLET. RoTERLEOK 
AV BAL, ERXPAMDOKOBMEARLTAEST, CDEFNUTCIL, BIEANO 
Hoke&R, 0 CHORERDLF—-MMIFALRWVCLICLETF. (CDEF 
VCIZ, KHANOR4 v % pointer (kH ¥0HHSNTHERA,) 





program prototypel (input,Output) 3 
const LENG=2503 


var ans : reals 
param: array (0..LENG] of char; 
order,pointer: integers 
ch = chars 


(Here are definitions of inputparam and number and getch) 
begin 
inputparams 
order:=0; pointer:=03 
getch (ch,pointer) 3 
if ch<>’ * then 
begin 
ans?=number (order) 3 
getch (ch,order) 3 
while ch in (’+*,’-’,'x’,'7°) do 
begin 
case ch of 
*+#? = ans:=ans+number (order) 3 
7-" = ans:=ans—number (order) 3 
’x’ = ans:=ansxknumber (order) 3 
*/? = ans:=ans/number (order) 
ends 
getch (ch,order) 
end; 
write (’answer=",ans) 3 
end 
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end. | 


CDOPALTFARBNIC E A TBR EGE LTS DEMME SF SSIES 
DEX ELT DS FILL TASEDRPYNLRFUCLED, CDVAUTF FAIL, K 
DEX T D7 BART EFC. HNC (number) HY, SORICMAL+BRO 
PK LBHSOLEMRLTRZDCT, 





number 








number 


prototype 1 NHBU7ID 7 


* BE OBEN te 

BANMFORTOTIATCIL, HEF ORME SSAC RPoORRD, 
PIZIT8I+2Z* 40 LwVjzRHICMHTSAA OO EO TLEWEF, CLT 
AILS EBT SOIR, by PHYA E DD FRSA SICEILEF. 
CWMIET AT AAD by THT viet eC. BRO B & BERR WYIc IME L 
CuK SOC TS 

—BEMOV AU CS, WEEE WE ICO TRVET, FTOKOVAVTC 
IX, FEE RELIC OW TROEST, —E FOV CREME PHL EST, Si 
EHOVAWIL, TUF YE LTHRT SCEBCEET. RELOVA 
DAT IV—-F v & expression, TAMK* term, He PLAT ILU—F vy *& number 
CRATITE TS. HWM prototypel DHS number LI 7 RP YAYaveMEL 
ELK, Mee MMs EVA CLAD, FCC hk YASVVOFRESM) An 
THRRATT. 

ENT, KDEF WU (FOTIA) ERALTTART, FECMNTARF 








end3 
pointer:=orders getch (ch, pointer) 
end; 
term: =ans 
end; 


function expression ( var order:integer ):real; 
var pointer: integer; 
ans > reals 
ch = char; 
begin 
ans s=term (order) 5 
pointer:=order; getch (ch,pointer) 3 
while ch in (*+*,*="] do 
begin 
order:=pointers 
case ch of 
"+? = ans?=ans+ term (order) 3 
’-* = anst=ans-term (order) 
end; 
pointer:=order3 getch (ch, pointer) 
end; 
express ion:=ans 
end; 


begin 
inputparams 
order :=03 
write (’answer=",expression (order) > 
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VAVOVTI VF vid, BNO HMR BML LOCK LTC a7 PY ay 
CUCERL TR RET, 
program prototype2 (input,output) ¢ 
{same declaration as prototypel) 
function term (¢ var order:integer ):reals 
var pointer: integer; 
ans : reals 
ch = char; 
begin 
ans ?=number (order) 3 
pointer:=order3 getch (ch,pointer) 3 
while ch in (*x*’,’7*] do 
begin 
order:=pointer; 
case ch of 
"x? = ans:=ansxknumber (order) 3 
"7° = ans:=ans/number (order) 





LODEPRMEMINT AHA F TEMA EF 1 2 BERG (number 8 ANNIE 3 
BeBe) IPP ET, COLGIC, ROSCEMAMO Br LOMSTH, POV 
RV CHICEMEMHL TL ED ETDS, EMAILS BBLS SCL ACAET, 
(KA BSH) 

CDZRADEF NC, EBOP AUT FADEBEMAeBMMLAT LICE 
=e 
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expression 









term 


term 


number 





number 


prototype 2 Nts 777 


*REOTAFIL 

ERBOP AT FACS FECUN TSR EF CHM OWE fic, FZ 
= D) SLEEP AEB AD UF AMI ORES ITI CE BMECH. Kr, RUHR HDS 
PITCH ET, PHL Tame ltiise 0 FA. 


MRL, SROVNVCH CMS NTR RET, TNENDIT YT Va 
YER NVeEOM De BL EL EI. BIT YI V aves, HEX TIT 
EC RGA LIIE-BS HTH ET, 


statement : AN SNE MLM, BBNSORARD, PROBA SD & WT 
Ly RAR OYBFNLRN  HHML 7K CBBICKAL TR ET. BAO MMS 
expression (ICfE%E THEFT. MAMA KC WVUFITA Se Poi LT ve Sse Cal B 
POLI — PRE RGRISZF -—DRAREMVETF. 


expression : Jiipkit 2 Si L & >. expression (t, ACHP MD HdIr7e & & [CMY 
UWSLETOAC, ARMA << SD. FFM PMA ABS ore ke Sic, A 
fill PRD CHRIPLEF. 
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term : HePRSLe MAHL ET. term ld, °#’. 6/7’, KL AOS EL 
NRE SICMPLETF. 


prime : N&RMORHMLET. ‘OOMOWMA TORE SIMI LET. 
BB, SSRORAMILEIRITIZKO LG LTH OTWHETOCxSIDE SIE 
LI—PHMIOVET, 


x*y = exp(In(x)* y) 


factor : MMOLE PMML ET. RTA, BHAI LoTKO LI ICR 
HRSUMET. 
BS OB > ERO AD ASA S 1 T V9 SHU (localvar) PH, BAO eI 
OBL TART, 
HOWE IR vPyvav number (CANS Mie ET. 
MEOW > 7ryv7yva vy funs (CRS Poi S EET. 
fRMOWE > Dev 7 Yay expression ICFRIN CHS M72 SP & PPM S At 
a 


number : Ae AMMLEST, MAE 7 ry DY av digits IC. Bar & 
Irv7va~ tracdigits, HABOe 7 ry 7 Ya Y indexnum Ic Hii S +t T 
wet, #7, 1 6HEROBSAI,. Frv7va vy hexdigits (C#MMStET. 





digits fracdigits indexnum 
C32 Te BP Oy, Bebe yO ed 0 


BOB 


funs : WReERHMH LET. BRAOSRMa ld, 7 7 v7 Y a v expression 
CAMHS EET. PCO BEINIS, SOPH > % PYRE IF IYO HLT) BERL 
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Ci koeTFTOFSAL 


statement 


expression 





expression 





prime 










factor 


function id 








FAST LFI 


variable 


number 


indexnum 





digits, fracdigits, 


indexnum 0) 
hexdigits ot) 
fanction id 
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St 














92 CHIkSAFAT IL 


CHS MMe CIMMeT Sc riclLoCitonEy, 


SC. RBRICAH SNP MEAD Bi S Ta 6 AER IB TAEL ED. BI 
AlX, MODEDICANHSNRELEDF (BRa nhlis 6724 LET). 


2. 0/-+13: 6.5 442 Za—4* 2 


Cc DMRKA statement (JESS ELMAKRTHEVOCEDE FE expression (< % 
WEST. expression Cli, ‘20’ 4365 * 24/a’ e472 OMPICaI, Bia 
® term ICJEL. Ko TALIS LC IM CMS TOES, term Cli 3 0” 
MBAO 4 6365 * 24/a’ DEA. 365° E24 Ka’ DM IcCarlt, SOM CH 
BETES, CHENOMAIS prime CHP SEF, prime Tid, “4727 O* 
BEVEDIZIT, COWMC ERRORS LET. DHSNRAMTLEOE 
& factor NITIES HN, FOUMA PHIM S LEST. factor lk, A number (ceili 
St, Vl ZK a Ole HM DFO HL TSET. number Cis, MRK 
digits RMS CET (COPICIL, BRLMPAVOD CHOOT TY7 Ya VISMEU 
MLEtA), CORP EMICRLTASERKOL IIL) EF (statement 
~number fH IZOV. TAU THIEF), 


KTOTFIATCIL, HSMM SUCKFEMERMAICIIT AD CLE ST. OF 
ORM NV CRS ARBRE LT. SMAI AONKEDICRZSZODTST. 
Pil Z(X, expression Clz, ET term SMRUMLL EST, COR, term (d 20 va 
SHEIK LTRET. ER MEMORY Yb WORDMBEIRT £5 ICE 
MSN CKDCRET, PYG, MAMIZ IE expression IZ to TANI, 20 Ey 
DEAD BTE EL ITT BRUT oa BP EU THIF ENE EINES 
DCF. expression HARKAS, NPI AK RRL T'20 Ea 7 Ma SEY HL, & 
*e term (ICSVITHET EG CECH) EA, 





aii VIL 


statement 


expression 


term 


prime 


factor 


number 


number 


FATS LEI 


number number 























HAO AME “IL 


ADE N*RF EL 








[LOD bh Dy 


a LO Pi LS v 3K F Ati 
20: 


20 ——— FOAM Nv iT 





ae S VTL) BFE 
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expression 


order (S32 2 ¥ Ci HN} 


param 









termld, COMICAL TES HEKKLTLS 





expression 2° DA} % Hl LT, POH LE SL BIEL te 
EFM LAS. 


LF — DH, Microware 4: Pascal Clt, LOOP UY Y + DIMM AF 
—hrY bl goto Kicks TH Hs BF CEBCREUOTC, —PIFCLI— 
WHET SIEMCREBA. CHS, HSMM SL CLF—pCohe 
&. LAB eR err Cty hLTER BICE OMIM NVERT SEF, 
LD LOMMV SIV ClE, ZF — BKerr) FF ny 7L, TI-HE HD » } 
LTBENTERL AL, REBICEOMML ALERT SLES. COMO 
MI KLICk oC, ZI—MRD RL ROP Rb (Abort) WH EG> THE 
cre 

Hy DRL, decimal (1 0 tEROHH) & hex (1 6 HEXOHI) D20M 
FAY» Cho TWF. decimal Clé, FMIiid' 1.0E-10 EDK 2. 10E+ 
LOKLYPSWE SS, AMRF LOMEHHAPZESILTEF, EOE 
(S, 1 0 MMOL PM OBKRS LOMMEHRLTHOT, MIDBH DS, Ke 
BAOBERALT REET. SUT, WED OBE EMA O IID BEB 
BIR AS TA BRAO Fils Cid THRETF. 

hex Cid, 3 2 (HDF OMI SHR LTCBX ES. CORD CHA SK 
PD EWU 1.7E+38 CHS, 16 *32=3.403E+38 C3 2H IIE, WO BBS 
E11 6HERCHI CLM MAIZE DEF, 


a es lll_e, ETE... Sl 


FAAS Lil 95 






expression 

term 
LF—P PO MIL AL 
HL, TOR L NL 

prime CHE LIB, HP m IE 
RDM LV NL RHE S 
+tB. 

factor 


LH ek SOHO TEL 
a FEED HID THEN 


LD FHA O MIB 


{a $219. 452311269789 


fic decichr 








e Re: figure figpt 
AKER DANES SNe TEP LAMPS, KP SANENS 
3 2 1 9 : 4 Bre B 3: 1 1 tha 


decimal D HEI) 
































96 CiEMSCT ETF u& 


fH) 982345 3nH8 


25 26 27 28 29 30 31 32 


24 
2 


hexpt BHP SANMENS 
igi. ee 
g SE aD D ae 
hex D BHfEBI 


COP APSFATIL, BEEN) % Pascal DAR 7a YY» MfihiZ, Microware 
ALO Pascal HHO SME THES, THis, KROLIZIOCH, 

prompt : BEDFA ANY TPEEPU VY I-—Y, FAYTE-FSY 
LE, FVicglSHFckLMCREF (procedure), 

mathabort : G|%e LCT FALSE@ 5-24, WhMers-—ickot7yu 
TPRABeWPEWERWEDICLEF (procedure), 

mathresult : SMF —ORAUS KO LFI-BREKRLEF 


(function : integer), 


FAT AAD CU, TO, THIRST, SI Py Ivav-Fuyvyy 
LAA YORI EV aA-WMIDOPNTHATHET, ER, Micros v 
% order &, DA—B'Gg EHHORKerr (4, TOSI H IL, ICRI PVF 
Yayo POYYICELTHES, BR AVPY ) (EP) 8. Be 
Ke boTwEt, 





program calculator Cinput,output) ¢ 


const LENG =2503 
NVAR =26 3 
NSYSPRM =80 3 


D_ZERO =1 3 
SYNTAX =2 3 
OVERFLOW =3 3 
R_PARENT =4 3 
FUNC_RNG =5 
UND_FUNC =6 


FAIL 


label 103 

var param : array [0..-LENG] of chars 
pointer = integers 
ch > char 3 


localvar = array [1..NVAR] of real; 


procedure initvar; 
var itintegers 
begin 
for i:=1 to NVAR do localvarli]:=0.0 
end; { of initvar 
procedure |istvar; 


var itintegers 


begin 
for i:=1 to 13 do 
begin 
write (chr Cord (7A*) -1+i) ,’=", localvarlid) § 
writeln © *,chr (ord (7A’) +12+i),’=",localvarli+13]) 
ends 
writeln 


end; { of listvar } 


function registvar (var err:integers Ch:char) : integers 


var num? integers 
begin 
if ord(ch) >=ord(’a’) then begin 
num:=ord (ch) -ord (’a’) +13 
if num>NVAR then err:=SYNTAX end 
else begin 
num:=ord (ch) ~ord (*A’) +15 
if num>NVAR then err:=SYNTAX 
ends 
registvar:=num 
end; { of registvar } 


procedure getch (var ch:char3 var point:integer) 3 
begin 
if point<=LENG then 
repeat 
ch :=param[point]3 
point:=point+l 
until (ch<>’ *) or (point>LENG) 
else 
ch:=" * 
ends { of getch } 


function calcumode : boolean; 


var pointer:integers 
switch boolean; 
begin 
pointer:=03 
switch ==trues 
while <pointer<NSYSPRM) and switch do 
begin 
ch+=sysparam[pointer]; 
if ch<>’? ° then switch:=falses 
pointer:=pointer+l 
end; 
calcumode:=swi tch 
ends ( of calcumode } 


procedure inputparam i 
var i tintegers 


ch:chars 
begin 


o7 
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write (’calcu:’)3 
for i:=0 to LENG do paramlil:=* 73 
i=03 
repeat 
prompt 3 
read (ch) 3 
paramlij:=chs 
i r=i+1 
until eoln or ¢i>LENG) 
ends { of inputparam } 


procedure decimal (value:real) ; 


const UPLEVEL =1.0E+103 
LOWLEVEL=1.0E-103 





DLENG =103 
var valreal , valfrac reals 
valint , figure , figpt , point =integers 
decichr ‘ sarray [1..DLENG] of char; 


begin 
valreal :=abs (value) 5 
if (valreal<UPLEVEL) and (valreal>LOWLEVEL) then 
begin 
val frac:=afrac (valreal) 3 
valreal:=aint (valreal) 5 
figpt +=DLENG; 
while (valreal>O) and (figpt>0) do 


begin 
valint ?=trunc (valreal-aint (valreal710) *10) § 
decichr(figpt] :=chr (ord(’0’)+valint); 
valreal s=aint (valreal710.0) 3 
figpt t=figpt-1 

end; 

figure:=f igpts 

figpt :=135 

while (valfrac>O) and (figpt<=figure) do 

begin 
valfrac t=valfracki0.0; 
valint ==trunc (val frac) 3 
decichrl(figpt] :=chr ord(’0’) +valint)s 
valfrac s=afrac (val frac) 5 
figpt t=figpt+l 


end; 
if value<0.0 then write (?-*) 5 
if figure=DLENG then 
write (?0*) 
else 
for point:=figure+1 to DLENG do 
write (decichr[point)) ; 
write .7)3 
for point:=1 to figpt-1 do 
write (decichr[point]) 
end 
else 
if value=0.0 then write(’0.0") 
else write (value) 
end; { of decimal } 


procedure hex (value:real) 


const HLENG = 32 3 


var vatreal treals 

valint , hexpt integers 

hexchr zarray [1..HLENG] of chars 
begin 


valreal :=abs (aint (value)) + 
hexpt  ==HLENG; 
repeat 
valint ound (valreal~ (aint (valreal 716) *16)) 5 
valreal:=aint (valreal716) + 
if valint<10 then 
hexchrfhexptJ] :=chr cord (’0’) +val int) 











else 


hexchrChexptJ] #=chr (ord (’A’) +val int-10) 5 


hexpt:=hexpt-1 
until (hexpt=0) or (valreal=0.0) ; 
if value<O.0 then write (’-")3 
repeat 
hexpt #=hexpt+1i 
write (hexchr[hexpt]) 
until hexpt>=HLENG 
end; ( of hex } 


function caldiv ( dividend, divisor :real >) : real 


var quotient = real; 
minus : boolean; 
quotient 3 
minus alse; 
if dividend<O.0 then minus:=not minus 3 
if divisor <0.0 then minus:=not minus 3 














dividend bs (dividend) 5 

divisor bs (divisor )3 

while dividend >= divisor do 

begin 
dividen ividend-divisor; 
quotient==quotient+! 

ends 

if minus then caldiv:= - quotient 

else caldiv:= quotient 


ends ( of caldiv ) 


function calmod ¢ dividend, divisor += real ) ‘real 


var minus = boolean 3 
begin 
minus:=false3 
if dividend<O.O0 then minus:=not minus; 
if divisor <0.0 then minus:=not minus; 
dividen bs (dividend) § 
divisor bs (divisor )3 
while dividend >= divisor do 
dividend := dividend - divisors 
if minus then calmo dividend 
else calmod dividend 
ends { of calmod } 








function digits (var order: integer) :real; 


var pointer =: integers 


ch = chars 
temp ,ans : real; 
begin 
pointer:=orders getch<(ch,pointer) 5 
ans:=0.03 
while ch in (°0*..°9°] do 
begin 


getch (ch,order) 3 
temp ==ord (ch) ~ord (70") 
ans t=ansk10.0+temps 
getch (ch,pointer) 
end; 
digits:=ans 
end; {( of digits } 


function fracdigits (var order: integer) reals 


var ans , temp ,devider :real; 
“pointer ? integers 
ch schars 
begin 
pointer:=orders; getch(ch,pointer) ; 
ans 0.05 
devider:=1.03 
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while ch in [°0*..’9°] do 

begin 
getch (ch,order) 3 
temp rd (ch) -ord (°0") 3 
ans nsxk10.0+ temp; 
dev i der :=deviderx10.03 
getch (ch,pointer) 

end: 

fracdigits:=ans7devider; 

end; ( of fracdigits } 





function hexdigits (var order: integer) :reals 


var pointer tintegers 
ch ?chars 
ans , temp :real; 

begin 
pointer:=orders; getch (ch,pointer) ; 
ans:=0.03 
while ch in [70"..°9",*a"..°f%, A? .. °F) do 
begin 


order:=pointers 
if ch in £°0*..°9°] then 
temp:=ord (ch) -ord¢’0") 
else 
if ch in (’a’..*f*] then 
temp :=ord (ch) -ord(’a’) +10.0 
else 
temp‘=ord (ch) -ord ("A*) +10.03 
ans?=ansx16.0+ temp; 
getch (ch, pointer) 
end; 
hexdigits:=ans 
end; ( of hexdigits } 


function indexnum ¢ var err,order integer ) ‘reals 








var pointer > integers 
ch > char3 
temp ? reals 
minus = boolean’ 
begin 
pointer:=order; getch (ch,pointer) 
minus +:=false; 
tf ch in [*+*,%-"2 then 
begin 
order:=pointer3 


if ch="’-’ then minus:=true3 
getch (ch,pointer) 








endi 
if ch in (°0*..°97] then 
begin 
temp:=digits (order) 3 
if minus then : 
indexnum:=exp (ln (10.0) k (-temp) ) 
else 
indexnum:=exp (1n (10.0) *temp) 
end 
else 
begin 
err 7 =SYNTAX3 
indexnum:=0.0 
end; 


if err=0 then err:=mathresult 
end; ( of indexnum } 


function number (var err,order: integer) :reals 


var pointer ? integer; 
ch = chars 
temp ,ans : reals 
begin 


pointer:=order; getch(ch,pointer) 
ans ?=0.03 
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if ch=’$’ then 


begin 
order:=pointers 
ans :=hexdigits (order) 
end 
else 
begin 


if ch in [’°0*..’9°] then ans:=digits (order) 5 
pointer:=orders 
getch (ch,pointer) 3 
if ch=’.’ then 
begin 
order:=pointers 
getch (ch, pointer) 3 
if ch in [°0’..°9"] then 
begin 
ans :=ans+ fracdigits (order) 5 
pointer:=order3; 
getch (ch,pointer) 
end 
end; 
if (ch=’E*) or (ch="’e’) then 
begin 





order:=pointer; 
ans ‘=ans * indexnum (err,order) 
end 
end; 
number = =anss 
if err=0 then err:=mathresult 
end; ( of number } 


function expression(var err,order: integer) :reals forwards 


function funs (var err,order: integer) :reali 


const FLENG = 7 3 





var pointer , namept ‘integers 

ch zchars 

ans treals 

funcid sarray (1..FLENG] of chars 
label 15 
begin 

for namept:=1 to FLENG do funcid{namept]:=" 75 


namept ?=15 
getch (ch,order) 5 
while (ch<>’(?) and (namept<8) do 
begin 
if ch in (’a’..’z’] then ch:=chr (ord (ch) -ord(’a") +ord (°A’))3 
funcidl[namept] ==chs 
namept *=namept+ 15 
getch (ch, order) 
end; 
if ch<>’?( then begin err:=UND_FUNC sgoto 1 end: 
ans:=expression(err,order) 3 
if err<>O then goto 15 
getch (ch,order) 3 
if ch<>’)* then begin err:=R_PARENT igoto 1 ends 
{case statement can’t be used) 
if funcid=’SIN * then ans:=sintans) else 
if funcid=’COS » then ans:=cos (ans) else 
if funcid="TAN * then ans:=sin (ans) “cos (ans) else 
if funcid=’ARCSIN ’ then ans:=arctan(ans’saqrt (1-sqr (ans))) else 
if funcid="ARCCOS * then ans+ 
, 














if funcid=’ARCTAN then ans:=arctan (ans) else 
if funcid=’SINH then ans:= (exp (ans) -exp (-ans)) 72 else 
if funcid=’COSH then ans:= (exp (ans) texp (-ans)) 72 else 


1 .570796327-arctan (ans’sart (1-sqr (ans) )) 
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else 


if funcid=’TANH * then ans:= (exp (ans) -exp (~ans) ) ” (exp (ans) +exp (-ans)) else 


if funcid="ARCSINH’ then ans:=In¢ans+sart (sqr (ans) +1)) else 
if funcid=’ARCCOSH’ then ans:=In(ans+sart (sqr (ans)-1)) else 
if funcid=’ARCTANH’ then ans:=In(¢(1+ans) 7 (i-ans)) 72 else 


if funcid=’SEC ’ then ans:=1/cos (ans) else 
if funcid=’CSC > then ans:=1/sin (ans) else 
if funcid=’COT * then ans:=cos (ans) “sin(ans) else 


if funcid=’ARCSEC then begin 
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if ans>0.0 then 
ans?=arctan (sqrt (sqr (ans) -1)) 


else 
ans‘=arctan (sqrt (sqr (ans) -1)) -3.14159265359 
end else 
if funcid="ARCCSC ” then begin 
if ans>0.0 then 
ans: =arctan (17sqrt (sqr (ans) -1)) 
else 
ans?=arctan (17saqrt (sqr (ans) -1)) -3.1415926536 
end else 
if funcid=’ARCCOT ° then ans:=1.570796327-arctan (ans) else 
if funcid=’SECH * then ans:=2/7 (exp (ans) +exp (-ans)) else 
if funci * then ans:=2/7 (exp (ans) -exp (-ans)) else 
if funci * then ans+= (exp (ans) +exp (-ans) ) 7 (exp (ans) -exp (-ans)) else 
if funcid="ARCSECH’ then ans:=In((1+saqrt (1-sqr (ans))) vans) else 
if funcid="’ARCCSCH’ then begin 
if ans>0.0 then 
ans:=In((+saqrt (1+sqr (ans))) “ans) else 
if ans=0.0 then 
ans:=In(17ans) 
else 
ans:=In((i-sqrt (1+sqr (ans) )) “ans) 
end else 
if funcid=*ARCCOTH’ then ans:=In((ans+1) 7 (ans-1)) 72 else 
if funci * then ans:=exp (ans) else 
if funci * then ans:=In (ans) 7In(10.0) else 
if funci * then ans:=In(ans) else 
if’ funcid=’SQR * then ans:=sqr (ans) else 
if funci ’ then ans:=sqrt (ans) else 
if funci * then ans:=ansx3.14159265367180.0 else 
if funci * then ans:=ans/73.1415926536x*180.0 else 
if funci * then ans:=aint (ans) 
else err: H 
1: if € err=0 ) and ¢ mathresult<>0 >) then err:=FUNC_RNG3 


funs?=ans 
ends { of funs } 


function factor (var err,order: integer) :real; 


var pointer: integer; 


ans treals 
ch tchars 
label 23 
begin 


pointer:=order; 
getch (ch, pointer) ¢ 


if ch in. £°0%.0°97,%.*,*$?] then 
ans?=number (err,order) 


else 


if ch in ('a*..*2’,7A’s.°2"2 then 


begin 


getch (ch, pointer) 3 
ERC TARTS 82". Ae 225% E7D) than 
ans?=funs (err,order) 


else 
begin 
getch (ch, order) 3 
if ch in [’a’..’z’] then 
ans:=localvarlord (ch) -ord(’a’) +1] 
else 
ans:=localvarlord (ch) -ord(’A’) +1] 
end 
end 
else 
if ch=’(° then 
begin 
order:=pointers 
ans +=expression<err,order) 5 


if err<>0 then goto 23 
getch (ch, order) 3 
if ch<>")* then err:=R_PARENT 
end 
else 
err:=SYNTAX3 
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2: factor:=ans 
ends ( of factor } 


function prime (var err,order: integer) :real: 


var pointer * integers 
ch = chars 
ans , temp = reals 

label 33 

begin 


ans:=factor (err,order) 3 
if err<>0 then goto 33 
pointer:=orders 

getch (ch,pointer) 
while’ch=’**? do 








begin 
order ointers 
temp actor (err,order) 5 
if err<>O then goto 33 
ans xp (In (ans) *temp) + 
pointer rder; 
getch (ch,pointer) 

end; 

err t=mathresult; 

3: prime:=ans 


ends ( of prime } 


function term (var err,order: integer) :reals 
var pointer = integers 
ch = chars 
ans , temp = real + 
label 43 
begin 
ans:=prime(err,order) 5 
if err<>0 then goto 45 
pointer:=order; 
getch (ch,pointer) § 
while ch in (°*’,’7’,°’¥’,°%'] do 
begin 
order:= pointers 
temp prime (err,order) $ 
if err<>O then goto 43 
if ch = * then 
ans?=ans * temp 





else 
begin 
if temp=0.0 then 

begin 
err:= 





ZERO: goto 4; 
end; 
case ch of 
vy? 
1y? 
94s 


ns 7 temp 3 
aldiv(ans,temp) 3 
almod (ans, temp) 








end 
endi 
pointer:=order; getch (ch,pointer) 





4: term:=ans 
ends ( of term } 





function expression; { (var err,order +: integer) + real } 
var pointer: integer; 
ch = chars 
ans = reals 
first + boolean; 
label 5 3 
begin 
pointer:=orders getch (ch,pointer) 5 
ans 0.03 
first '=trues 
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while not (ch in C? *,7)7]) do begin 
if ch in [*+*,°-"] then 





begin 
order:=pointers 
case ch of 
"+? = ans:=ans+ term (err,order) 3 
2a SNS ns-term (err,order) 
end; 
if err<>0 then goto 5 
end 
else 
if first then 
begin 
ans +=term(err,order) 3 
if err<>O then goto 5 
end 
else 
begin 
err:=SYNTAX; goto 5 
end; 


if first then first:=false3 
pointer:=order; 
getch (ch, pointer) 5 
ends 
if first and (ch=")*) then err:=SYNTAX 
else err:=mathresul ts 
5: express ion:=ans 
end; { of expression } 


procedure statement; 





var pointer, numvar, order, err : integer 3 
answer = real i 
ch > char 3 
begin 
order 
err 
pointer:=order; 


getch(ch,pointer)s getch<(ch,pointer) 3 
if ch=’=" then 
begin 
getch (ch,order) ; 
numvar:=registvar (err,ch) 3 
if err=0 then 
begin 
order:=pointer; 
answer expression<err,order) ; 
local var (numvar] :=answer 








expression <err,order) 3 


if err=0 then 


begin 
write (answer=" )3 decimal (answer) ; 
write ( hex=")5 hex (answer) 3 
writelns writelin 

end 

else 

begin 
if err>UND_FUNC then err:=OVERFLOWS 
write(error ’,err:1,’ occured at 7)3 
if order>LENG then writeln(@ last columns’) 

else writeln(order:3,”’ columns’) $ 

writeln 

end 


end; { of statement ) 


begin ( main} 

mathabort (false) + 

initvars 

if not calcumode then 

for pointer:=0 to LENG do 
if pointer<NSYSPRM then param[{pointer]:=sysparam(pointer] 
else param(pointer]:=" * 
else 
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begin 
writelns writeln( calculate mode’) 
inputparams 


ends 
while ( not eof ) or ¢ not calcumode ) do 
begin 
pointer:=05 
getch (ch, pointer) 5 
if ch=’?? then listvar 
else statement; 
if not calcumode then goto 103 
inputparam 
ends 
10: writeln 
end. ( of main 





2a aes cal 


PB LE~ 1000 0 OMOAVY S— ERE HICH A LET. 
HE LREDAVY T—ERRVGAIEKD £5 CAN LES. 


era tl 4p 
pl cal 1984 


fRE LRADAVYS-BRROBRMKO EGIICAHLET. 
cal a A 


Hl Cia T1998 Of 


main VOY FAIS, APY FONFA—HW 2H SUA & 1M SHALE 
ICI, QOS 1s monthcal #, 1MOWAIE yearcal EPUMLEF. Fi 
BNOVINM—-F VILE, NFRD (4B KRIS LA) MB ICRRLAG 
DRYELET. 





monthcal lt, VDEHDORMETOET. ET, GLENKELEADARE TOD 
AS 1 Hake = SWE &, monthday & startday W452 TOBReEEOWS 
CeIZEOT, ROTHEF, PLADBSES*MAIO~6 (Ale Oe LAME 
BELTS) CHAENETNTC, THEAT ey hELTHM dayoft cacte LT 
BRET, ZENHOASA (day LMAET) SMHCET, day+dayoft 7 Of 
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BUSH E SITWHTLET. PIZIZ, MAST SAD AMD BES & Kd, 
dayoft M6120 ET. H1 A (day=1) eM NERS Id, day+dayott 2 6 + 
L=7 CT ORICA ETH HO, BHTLEF, CDEFICLT,. ENADHK 
oy (BERK numday WARS AMRL THA) 72, HEMALTRAEF, 

yearcal (x, 14FORMETI RM. LTC 3B ODADAVY Y—-EMALE 
MILE) EAA. CHMH, monthceal CHALTHRERMEVA F 3 OHM LL 
CHARLES, monthcal Cii-<7 day+dayoft 287 OfFRic tore SIZ, WT 
FONTIELE<S TKOAOMARTVEF. STARHALEE Sich TUT 
FODCT. COMME 67TATOET (OLA, MACS 6THNITKRT 
SSMPHTT). RRL, CTMAT SMI, SI ZOADARPHALTLED 
Ro, HehnAt orb cC#AeHHLES, 

monthday (4, f## SNRAND ARE ROSES, MAIC Lo THMDAREKRHS 
TED HSDCHTM, COCI12ADPOAROF-—F EA A1 3 OWI & 
DTWVESF (ACM(S OP OMESRHICH, REL BILTHET), KL. HK 
DALES titi: TILA ORT, 2ASHELEBAIL+A1LEFT. 


HED ALES SOLED A OFRRCH, PO1 OO MBRCHR OL, RIE 
EDD 4 0 ODHECHSCL, 


startday (3, RES NRAOB 1 ADS SAS 0 ~ 6 ¥ COMBOUECH 
MET. He) start_ day cli, LHL ASARCHSZLADENENOAOH 1 

Hd hea k SEH DEBRA P—PSELTAN THIET (HUECE RL ADYLNTH), 

COC, SSFOLALAOMASKYD CAST (HEHISHIBS 0, LS 6 

ELEF). L¥EZS6EF5HLFSL, 365mod 7 = 1CHPH, HSLOB 
FOLALAI, COOL AL AMHE SIADKOMAIEO EF, MZIX 
HSEOLALAMAMARTREFSZL, 4OMMEO1A1 AlarkKMA Ice 

EF. HERP EY, BECOHECHHCR ETDS, Rx 4O1A1 

Hid, (x-1+1) mod 7 CHHCKREST (—1LLTH4OIs, PRD 1 Hes 
WEDD GEC, UB LECDBERDTHRZODCH.4F1 LTV 4014, PH 1 4E 
DIALARAMP SMES TRS HCH). MEMASCER#EANIE, x iz 
POE 1 SE Pb SOILD HAE E COMO MED As RATE+ 1 UTR OKIE 
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wWeeA, WE x FE COMEOMMIL x-lLey Ce EROS cate 
ees. 


(y div 4)-(y div 100)+(y div 400) 


kot, HR x FOLA LAE SMA S. x-ley CS EKO EIIS 
) Fi, 


(y+(y div 4)—(y div 100)+(y div 400)+1) mod 7 


AECLALAHIOW THO TRELAD, ALO LM LEOMOT<TOH 
MMA IOATHATILENESF. REL. 2A28ALYVRIL, FOPOBHE 
Zp IAD 1ORANTHET. 

MULESICL CT ASZADH1LADIAETATFIADLIICRHOTHES(F 
DF FACIL T OMAR & FF AIC, start_day HR LAA] Of eRe 
bEHI+1LEBLTHET, 

RICHEY CHA eats lS, mod (ARB A % . divi SHARE e KLE To 











7k cal -- calender x7 


7x usage: cal year <month>. x7 


#include <stdio.h> 
define isleap( year ) ((year%4 == 0) && (year%100 != 0) 11 (year%400 == 0)) 
char xXmnamel13] = ¢ 
““, “Jan*, “Feb”, “Mar”, “Apr, “May”, “Jun”, 
“Jul”, “Aug”, ~“Sep*, “Oct”, “Nov*, “Dec” 
5 
char week] = ~ Su Mo Tu We Th Fr Sa*3 
main( argc, argv ) 
int arscs 
char xaravl]s 
int year, month; 
if ( argc == 3) 


year = atoi( argv[i] )3 
month = atoi¢ argv[2] )3 


if € month > 12 1! month < 1 It year < 1 I! year >» 10000 ) { 
fprintf( stderr, ~I don’t know such a year or month !¥n” )5 
returns 


) 
monthcal ¢ year, month )3 
» else if ¢ arac == 2) ( 
year = atoi¢ argv[i] 3 
if ¢ year > 0 && year < 10001 > 
yearcal ( year )3 
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monthcal ¢ year, month ) 

int year, months 
{ 

int numday, dayoft, days 
printf ¢ * %S %d¥N¥N%S¥N” , mnamelmonth], year, week ) 5 
numday = monthday( year, month )3 
dayoft = startday( year, month )3 


space ( dayoftx*3 )3 

for ( day = 13 day <= numday; day++ ) { 
printf ¢ “%3d*, day )3 
if ¢ (day + dayoft >) * 7 == 0) 

putchar(¢ ’?¥n’ )3 

) 

if ¢ € numday + dayoft ) %* 7 != 0) 
putchar ¢ °¥n7)35 


if ¢ ( day + dayott ») * 7 == ui 
putchar( °¥n’ )3 
) 
if ¢ ¢ numday + dayoft >) %* 7 != 0) 
putchar ( *¥n’)3 


yearcal ( year ) 
int years 
{ 
int numday(3], dayoft{3], day(3], i, month, mofts 


space ( ‘26 )3 

printf ¢ “calendar of %d¥n¥n”, year )3 

for ( moft = 15 moft < 123 moft += 3) 4 

for ( month = 03 month < 353 montht+ ) ¢ 

numday(month] = monthday( year, moft+month > 
dayoft(month] = startday( year, moft+month ) 
space( month? 20: 9 )3 
printf ¢ mnamel moft+month J )5 


) 

printf ¢ “¥n¥n~ D5 

for ( month = 03 month < 33 month++ > 
printf( “%s ~, week )3 

putchar ( ’¥n’ )3 


day(0] = day(1] = day(2] = 15 


TOG OC Jb OF WM CGS: te De 
for ( month = 03 month < 35 month++ ) ¢ 
space( ( day[month] == 1 )? 3xdayoft[month]: 0 )3 
do { 


if ¢ day{month] < numday[month]+1 ) 
printf ( “%3d*, dayl[month] )3 
else 
printf ¢ ~ wr Dee 
) while ¢ (day[month]++ + dayoft{[month]) %* 7 != 0 )3 
PrintéHe 7 NEY 
) 
putchar ( *¥n’ 03 
) 
printf ¢ “¥n¥n”~ 03 


monthday ¢ year, month ) 
int year, months 
{ 
static char month_dayl13] = ¢ 
0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 
vs 
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if ¢( month == 2 && isleap< year ) ) 
return(¢ month_day[month] + 1 > 
else 
return( month_day(month) )3 


startday( year, month ) 
int year, months 
{ 
int sday; 
static char start_day[13] = ( 
0, 0, 3, 3, 6. 1, 4, 6 2, 5, 0, 3, 5 





sday = year + (year74) - ‘year7100) + (year7400) + start_day(month] + 15 
if ( month > 2 && isleap( ++year ) > 

return( (sday+1) % 7 03 
else 

return( sday % 7 )3 


space ( tab ) 


int tab; 
{ 
int, 15 
for ¢ i = 13 i <= tabs i++ ) 


putchar( ’ 7 035 
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2 == Gs lAnelprint 


HELR TIT ALOMEO MEGS HAS CHT SE MS 7a DA 
epee LE LA. HET SMBS, Her 1 0 OME CRT SOLD MRETS. 


MAE, KORICIaeY FACET. 
Iprint BR77 4 AHZFrAN <a-F1 2-2 3A-F3>) 


BERT 7A VEL, GRIEF SHES SBOE PCM S7 PANDO ET 
>. BRA PAUP C. SMBS, CT PFZACKMI SON THreIHTe) Fe 
Ao LOOMBORSlL, Herm20eCE EC. MBOAlSies 1 0 0 BE CHR 
DzEMCEET, 

AAT PAMEL, THEE ST SHOOT HA bOSHONTAST FAI 
TECH, ANF TAN CLA SS MIS, BA PBTCRW SENT 
BLEDVECH. CHL, BS OBO MAOH E L7G RC TA] 
LRCH, TOMASI MRMNEETSeEWVGCLLHY) HHA. HAI, 


We want to use Pascal language. 


LAGI MERBANT PAM HboRE A, BERT 7 4 vic language & 39 Hh 
HDYRE STW TH, language.ld, EY A PRRICH S}S 7M HIM EN FS EA 
Ao COM. EVA KEOMICLOUVLOZASEVSCEMBRESV ET. 
ER KMFEDLFEORMSTOES. 

I— PES, SEI HE + EPR TS IA-— FOIE CT 2MUAMIOMEDR CH 
LET, HSMBOMMME TALL, MEM NT SHICKOL FIM 
SnET. 


a—-F1l + 32-KF2 (megs, ESC+E (1b+45)  ) 
MGR HD Lito eld, KMOLIICMHASNET, 


a2—-F1l + 32-F3 (meet, ESC+F (1b+46) ) 


; 
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Chik, SPV VY IREs TMM ET ZY —-7YAZI—FMARESRHOI(, 
LHF RMADOTY y FIA LR YTV REMATCH SEZ EDF ANT 
MATAR DOCH. “4B. Aisnpicls ESC+E & ESC+F DW SHET. 


WHI, PREM HIM LCE DNET. CHMS, PUY ISMALREVGEA 
Ik, MOKED, VSRVIRCHHETY YZICEY) 4SCRUNIETEY ETA. 
Iprint registfile infile lb 49 58 >/P 


Bil RIX, Pascal DV —ATAPAMC, PRBS & APNE LZ VGA ESL 
Cee WE) 5 
77 As'reserved’ ld, KAEFICMERMLET. 





and array beqin cage const 


div do downto else end 
file for function goto if 

in label mod nil not 

ot or packed procedure program 
record repeat set then to 

tyne until var while with 





ER. 7Trf{'sample. p's, MOK FICHONTArRELET, 





program sample ( input, output > ¢ 


type language = ( c , pascal’) ¢ 


var like + language ¢ 
ch s char 3 
begin 
repeat 


read( ch ) 
Cnth? ch ta Ce’, “p' oy 


if ch = ‘c’ then 
begin 
like 3:= ¢:3 
writeln ( ¢ You like C , and you like a side effect am | 
end 
else 
begin 
like := pascal 3¢ 
writeln ¢ ‘ You like Fascal . You are an artist '' ) 
end 





=H, Iprint reserved sample. p >/p# Rit LET. 





2 Cuba WSL, 





Program gamole ( imput. output ) 


type Jan m= ( ¢ , pascal ) 4 








var Like s language 3 
ch t char 3 
begin 
repeat 
read( ch ) 
WELT Soh in 0 Ge 3 Ig 
if ch = “c* then 
begin 
like t= ¢ § 
writeln ¢ * You like C , and you like a side effect !’ ) 
end 
else 
begin 
like s= pascal ¢ 
writeln ¢ * You like Fascal . You are an artist !' 
end 
end . 
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main 7077 Ald arge DREW TH RMORO BD LUG AIL, PAE wi 
&. usage t}7IV—-F YEA CT. BELA MAAHATSEIILTHET, 
BRD, AVY ROoRHT 3OBSlL, A-FI1~3 (PaTF7aHPos 3 
—F1%seg, 3-—F 2% eph, 2-F 3% can tvs5 ZOBRCK 7 THET) 
IFT aM bh OME VEL ET. GBD 6 MAD & SIZ, 1 6 AEBS % MERC BE 
fRLT. BRDIA—FERTRRICKRALTHET. FUT, gsym HULL E 
Ges 


gsym HT U—-F vls, BHT AD SMBS fscanf Sho THO TR TIS 
name £139 4A OACWICABANL TR ET, gsym (ld, MIRE Va ¢ DBERL eM 
twjyyyys cnt &HoTBY), cnt Dike main VAT FZ AIIKLTA ET. 


main 7E7F5 Ald, gsym CKo T&R MAORME MAL, FLD LHD D 
He RO OREAMTL, ZI-Xye-VRMNALTHI LEFT. FT5TEY 
PEO, FEOWBHORML, RHKM 7 37M I—F RL * through (c SIF IEL 
CT. MTLET. 
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through 47U—-F vik, ANT TAH, gete HHT. INFIOVAN 
LTX ES, AN ENR Se 97 Fld, word EVF KHPOACM ICA S UTS 
£4 (word lt, NULL Ek 3 THHWMESN THES). ANLTERN FEM, EOF 
(PPA MOMT) EOL GTOHT) ®SPC (BA) CHW. word cK 
SERMLTO RETA, WMP bOI, FO CHMETODE 
ILLES. MEE L MED word CHML THe 5 Bic, EOF ” EOL © SPC 
PxrBeis, EOF OL &ZKTL. EOL PSPC DE RISENOEONMF BIR 
WH LES. MHORRICTNEOKEMRRE BIL, KMOANCTEN SORE 
DRA US EF iCvungete (FMV Cy 77 IRLTHY KF oword (CX 
SpANSNRBAI, gsym CHERL 7D Hc, ZRE-EKFTSLOMHS 
PHSET. OL. —RLABAS, MINI E+ MG RI — POMC, 
ZOMMEMNLET, CPKLEMVLE RIS, TOMMETOZEMALET. © 
MBER, SRR? EOF 28< SE CHRD L THEFT. 


3=F1=3ik, S7USH Lo TAD VST, PROP rE LTAGT 
BN, BHBOV ITU Ey bAYVYPIHTSEOTT. BURT 7k 
(BGM) OL TIA, UML MI-FRBELET (AHL. EVAAT 
) vy ¥ teRE— Bla. TV IS - 74 Y CRAL THES), EDMLLDT 
Vy POTS, BEHSOVHAAT VCH TRE, KELTC REY, 


a= Fo a—F2 a—F3 
PN OT ee lb (ESC) 45 (‘E’) 46 (F) 
(FT wv F fill) 
SEVRATY YY lb (ESC) 49 (T’) 58 (‘X’) 


(PVP AIA) 


3—-PEBZC. APOHELE TT AVAHRAG ES TNE, WG 
in be2 et. BIZIK A-K1L#2a, A- FILA KF Bee THIET, MA 
PerAWiclt, BHRSINLMBOMRISMET APY ATB2DIC ee al eon) = 3 
5 
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FOP7F A, HAPEIEIC AMC MRE Yb LC BUS, BURT ZL X 
ARIE DME A BOT E OMS AO ED, BRULEE Bo LIS LC UH 
FEELKIE, FOEFILTL HAN, 


E 





#include <stdio.h> 


#def ine ESCC Oxib 
tdef ine EPHC 0x45 
#def ine CANC 0x46 
#def ine SPC 0x20 
#def ine NO 0 


#def ine WMAX 100 
#def ine WLEN 20 


main( argc, argv ) 
int arge; 
char xargv()3 


int n, gsymQ, seq, eph, cans 
if ( argc != 3 && arge != 6) 


usage 0 5 
returns 


if ( argc == 3) ( 


seq = ESCC; 
eph = EPHC; 
can = CANCs 

) else 
seq = htoi ( argv(3] 05 
eph = htoi¢ aravl4] )3 
can = htoi( argv(5] 03 


) 


if ¢ ( n = gsym( argv[i] >) ) == NO) ¢ 
fprintf( stderr, “registration error¥n” )é 
returns 

) 

through ¢ arav(2], n, seq, eph, can ); 


usage © 

{ 
fprintf( stderr, “usage incorrect¥n” )3 
fprintf( stderr, ~ Iprint registfile inputfile < seq eph can > ¥n* )5 
fprintf¢ stderr, seq - sequence hex code ¥n” )3 
fprintf ( stderr, eph - emphasis hex code ( seq + eph )¥n~ 03 
fprintf ( stderr, can - cancell hex code ¢ seq + can )¥n” 03 
fprintf ( stderr, default : seq = 1b eph = 45 can = 46¥n¥n” 035 


ee a € 


char name(WMAX] [WLENJ ; 


int gsym( fname ) 
char xXfname; 


FILE *fp, *fopend 3 
int cnts 


if ¢ ( fp = fopen¢ fname, “r” >) ) == NULL ) 


return( NO 03 


for ¢ cnt = 03 Cnt < WMAX$s cnt++ > 
if ( fscanf( fp, ~%19s", namelcnt] ) == EOF ) 
break; 
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fclose( fp 03 
return¢ cnt )3 


tdefine testc( fp) ¢( (c = getc( fp) ) == EOF I! c == EOL II c == SPC ) 


through ( fname, n, seq, eph, can >) 
char *fname; 
int nm, seq, eph, cans 


FILE xfp, Xfopend 3 
int getcQO, Cs i» Js 
char word(WLEN]; 


if ¢ ¢€ fp = fopen( fname,“r” >) >) == NULL) ¢ 
fprintf( stderr, “can’t open input file¥n” )3 
returns 

} 

for ¢ 





if ¢ |testc( fp) >) 
for ¢( i = O38 i < WLENs i++ ) ¢ 
wordli] = c i 
hf © testet fp yo 4 
ungetc( c, fp )§ 
break; 


} 





if « strlen¢ word ) Oo) ¢ 
if ¢€c == EOF ) ¢ 
fclose( fp )3 


returns 


) else if ¢ c == EOL 11 c == SPC > 
putc( c, stdout )3 
» else ¢ 
SAC jee Sled Pea © Ke aa WE Ts 
if ¢ stremp(¢ word, name[j] >) == 0) 
break; 


iG os HD 
fputs( word, stdout )3 
else ( 
putc( seq, stdout )3 
putc( eph, stdout 3 
fputs( word, stdout )5 
putc( seq, stdout )5 
putc( can, stdout )3 


ttdef ine MASK Oxf ff0 


int htoi¢ p > 


char *pi 
{ 
int hy, c3 
for (h = 03 c = xpi pt+ ) 
if ¢c >= °0” && c <= °9” ) 
h = ( Ch << 4) & MASK) + CC - 7075 


else if ¢( (Cc I= 0x20) >= ’a’ && Cc <= fF" ) 
h= ( Ch << 4) & MASK) + C - *%a’ + 105 

else 

break; 

3 


return( h 
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2—2-— (5 grep 


grep LISLE TSICH-FOLETCH., V-FOK FEM ERET SM ITIEMR 

HLL WY MO MEMO LI RIOR LET. TAU EA— FIEEORE 
EB ZNIFEWCLE DF. UNIX CHEMRMOTNTEFHR—bTSBVLD 
BWrEICHL, Hic OS—9 CIMA CK S77 F cH HY ETO, 
KON dSORYEIRALET. 


{EERO MPI 

ERO IMS 

aCZevs 13 e 

45D AE9E 

{TOUR 

LRT-TFLE (¥ORRO KF EDO) 


EON WRN 2 CHE IOMMET SSE 
atrlib#ehlicD1 MF 

athe bte< CCHF 
ASCILTIS ECAP Exe tTOXNF 
rmeEL EL ] OFCOA 





‘#1, OXELLELOEROKPRMERT CCITERLTR Ss, SOR fa 
HSMIIEMRH 0 HHA. HER grepldv¥ -—VICLAV-FTIMSLANL 
>I ODAUILINI — Vv BHF LEADS ENT OME ES. TAUEA- FO 
ieee ISBT ZWD HY FA, HATCH eA dtRVvBH IC 
ISWBEWP OAV HH AFT PERBVET. 
grep DEHARE LTILEF VI b VAT IC LSEOHHAV EF. C 
Ns avey FFA v CHE LRN VY BV DRARCMMLE TL 5 IC 
TFREWIOOC, HMO HMMLEBDNZDCOOCH EMICMMELR. RH 
L, HIBOHT, BEURIGL ROSY — VOT SY — v DATS OV TE 
MoreHKe CVET, 
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EF. BLO EREDNI-—VYRPWMICHRMLET. MORAMICIAE-L 
ROLERA, CUOTSMMIZ, AVY FIA YE 2OUEONI—Ve BS 
CEEMLER PETIT, HLYCLIERTONETF, 

KEMEDOOOILFEMZZ EW CLICTAL, RORMHHORE DTA 
Ed, WED, BIBL EBRD ELOKEK RoTIVWEtA,. APXVF 
DIMMBIL, TNERT (CLTMHOFYF77FLKMODCAS) 1754 b 
Dev APTI CHSBEZTLEWET. 

UB, LAN hb CHM OXY ATI ERMCASLOMHSRPEVICET 
TR, FAZLOMBAV BS DITMH) ECA. HiihPSARETCASCII 
MEL Y bOAVHSMEER LIX LIFTS MRSTSOLICEVES. € 
TISHRO aICHDONZACEBE<, LOEYTIIJISI-—FeLbroRb 
Bars OMBELWVEWFZ ELAM, SFIMHS$FRECHMATSZCEICL 
ELAR. LRM DTINODE KL FITFIEDODEY-FTSCEL LMC TS 
EA. REL, Me Mle 7 OCERLTR ETON, BRLTLEDT 
OPEVEGA, PLOTIAY ba-NA— KF ($01YS $LF) CLARA MIW 
DSLNEtA, 

STgrepsErF yYTORMAL, FHAv 4 VICLELR. MMICHIT 
BODIE, NY —Y ERIET B ¥makepat TH. 

makepat Hla, 789 — v (CFA AMRIT TUIFY ES 2a L, Ae as H Mis 
NOSiKFCEILEF. PCHENZ LEME 1754 KFWB TH&, 
APR AT IUBMNRG FILTOME LS CRERZET. RELEOMA 
LEAT -TRLEY RH SMILE RZ EMA. 

QA BRR OOMIANG bieeRIRI, BASF ROR OMI ZN, Fie 
ZELEDBHAV ETD, ZOYALECHERALAHOHICHOS CLICLET, 

pIZIX, “% [aA] *¥, c” Ewjwry—-vis “PAAAHT, c” &BBwBS 
RET, 
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7% make pattern x7 


#include <stdio.h> 
#include <ctype.h> 


#define YES 1 
#define NO O 


#define MASK (Oxf f80) 
define ANY *?° 
#define NOT ’%*’ 
tdefine BRA ’[’ 
#define KETT °]”’ 
#define HIFUN ’-* 
#define TOP °’%’ 
#tdefine BOTTOM *$? 
ttdefine ESCAPE °¥¥’ 
tidef ine CLOSE ’x’ 


#define XANY Oxf 1 
#def ine XNOT Oxf 2 
#define XBRA Oxf 3 
#def ine XKETT Oxf 4 
#define XHIFUN Oxf5 
#define XTOP Oxf6 
#def ine XBOTTOM Oxf7 
#define XCLOSE Oxf8 


#define ishex(c) ( isdigit(c) 11 (c)>="A’ && (c)<=’F* II (c)>="a’ && (Cc) <="f "> 
#define ahtoi (c) ¢ ((c)<='97)2?(c)-"0"= ¢ ((C) <=°F*) 2 (C)—"A'#102 (C)~-" "#10 ) dD 


int makepat ( p ) 
char xpi 

{ 
int C3 


if ( Xp == *"¥0” ) 
return( NO )3 
if ( Xp == TOP ) 
xp++ = XTOPS 
while ( Cc = Xpt+ ) 
switch (c) ¢ 
case ESCAPE: 
if € ishex¢ c = ¥p ) && ishex¢ p[1] ) )° ¢ 
xX(p-1) = ahtoi( c >) * 16 + ahtoi( pli] 5 
packstr( p, p+2 )5 
) else if €c != *¥0" ) 
packstr( p-1, Pp )5 
else 
return(¢ NO )3 
break; 


case BRA: 
*(p-1) = XBRA; 
if ( Xp == NOT ) 
Xp++ = XNOT$ 
while ¢ ( c = Xpt+ ) && cC != KETT ) 
if ( c== ESCAPE && Xp == KETT I! c==ESCAPE && xp==HIFUN >) 
packstr( p-1, pi 
else if (¢ *p == HIFUN ) 
if Ce @ Sli) .« 


xp = C$ 
*(p-1) = XHIFUNS 
p += 25 
) else if ¢( c == pli] ) 
packstr( p, p+2 )3 
else ( 
packstr( p-1, pt2 05 
pr 


) 
if €c == 7¥0" ) 
pons 
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else 
*(p-1) = XKETTS 
break; 
case NOT: 
*(p-1) = XNOTS 
break 
case ANY: 
*(p-1) = XKANYS 
break; 
case CLOSE: 
nied = XCLOSEs 
break; 
case BOTTOM: 
if ( Xp == *¥0” ) 
*x(p-1) = XBOTTOM: 
) 
break; 
default: 
break; 


} 
return( YES )3 


packstr( p, q ) 
char xp, x*qi 
{ 
register int c3 


while € Cc = Xqt+ ) 
xpt+ = C3 
xp = "¥0'S 
) 





ICEBICNI -—y vy F YTTERRESLEL EG. 

onematch (i 1{FODANHUCANI —Y CHENSZ REM H OPED ® hls 
ZACH, onematch AFIS XTOPDMASMS, HED & ld tailmatch ic ¥ 
pteé Ty, tailmatch (SAVE IKE FOFHLTIDT, ECMCV YF TS 
LOARHSWDEI RHETT. 

“Pa (FBR pmatch lis CHAN STOIC, PCHENZNI—Y IBA 
A) BHADEA MRM, YESERIXNOSKLET, RRLSLPHAH1 
MEAP SIURMELTTWRIAET, 

pmatch [i makepat ¢llU <<. case MPH MY WoT ED, (DUBE (TH 
Ine HVe THY) pmatch AAeMOWLED, Fre Wave reolcerzAE— FAA 
LATHES GEEWVICESMPoRLG EOC, COMO hai (bld LT 
HA, 

Ke P ABLES RK brakette (CEPEET. HIB’ “PAT 
VWZDEF PCH mat CYESERISNO MME REL THOT. Hicvy F 
TA,LMOMPHoRMEI MRRT found XOR HLM MHA) FEOET, 
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FREPRELT VY FLTREMPREVMD, EWDLICZAZNTT, 





7k match xs 


#include <stdio.h> 
tinclude <ctype.h> 


#define YES 1 
#define NO O 


#define ANY °?” 
tdefine NOT °**’ 
ftdefine BRA °C’ 
#define KETT °*]’ 
#define HIFUN *-’ 


#define TOP *%’ 
#define BOTTOM ’$° 
#define ESCAPE *¥¥’ 
#define CLOSE *x’* 
#define XANY Oxf ffi 
#def ine XNOT Oxf f £2 
#define XBRA Oxf ff3 
#def ine XKETT Oxf f #4 
#define XHIFUN Oxfff5 
#def ine XTOP Oxf f£6 


#def ine XBOTTOM Oxfff7 
#define XCLOSE Oxfff8 


#define ishex(c) ¢ isdigit(c) 11 (c)>="’A’ && (c)<='F’ II (c)>='a’ && (Cc) <='f’) 
#define ahtoi (c) ¢ ((c)<=79") 2? (c)-"07 2 ¢ C(O) <=°F 2 2 CC) -7 A410: (C)-"a’#10 ) D 


int onematch¢ buf, p ) 
Char Xbuf, xXps 
( 
if ¢( Xp == XTOP ) ¢ 
return( pmatch( buf, ++p ) ? 15 NO )3 
) else 
return( tailmatch( buf, p) 03 


int tailmatch( s, p ) 


char xs, xpi 7k pt pattern, St input_line x*~ 
{ 

int ni 

if ( Xp == ’¥0" > 


return( YES )3 
for (n= 13 *si nt+, Stt+ ) 
if ( pmatch< s, p) ) 
return( YES )3$ 
return¢ NO )3$ 


int pmatch(¢ s, p ) “7k string, pattern x/ 
char xs, xpi 


char xbrakette © 
int Ci 


for (3 C= Xpt+ 3 stt ) ( 
if Gc == XCLOSE ) { 
do ( 
if ( pmatch( s, p) ) 
return¢ YES )3 
) while ¢€ Xst+ 3 
return( NO )3 
} else if ¢ c == XBOTTOM ) 
return( (ks)? NO: YES )3 
else if ( xs ) 
switch €c) ¢ 
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case XBRA: 
if ¢ ( p = brakette( p, *S ) ) == NULL ) 
return( NO D3 
break; 
case XNOT: 
if ( *¥S == Xpt+ ) 
return( NO )3 
breaks 
case XANY: 
break; 
default: 
if (Cc != Xs ) 
return( NO )$ 
break; 


, 
else 
return( NO )3 


) 
return(¢ YES )3 


char *brakette( p, sc ) 
register char xp3 
int sci 

{ 
int mat, found, c3 


sc &= Oxf fi 
mat = ( Xp == XNOT )? ( p++, NO D+ YES3 
for (¢ found = NOs; (Cc = Xp ) && C != XKETT3 pt+ > 
if € C==XHIFUN && pll) && pLI]!=XKETT && p[2] && p{[2]!=XKETT ) ¢ 
if € sc >= (pl1]&0Oxff) && sc <= (p[2]&0xff) > 
found = YES; 
p += 23 
) else if (sc == c) 
found = YES: 
return(¢ ¢( mat * found >)? NULL: (Cc? ++p: p) 03 





BATFITIZL TIARA VN -FVERALET. 

Bl -—-YRPDIEBUSEGITFACLEREZ EF. FELT TAT 
DNP-VECVF TR, HEWLENPLICSV VF FS, DEBDLER 
BREPEATY aVIFTCHELET. BRP VF TSRFORER HET 
ZTITEBLVUHBSEMNMTSZ7AITOMNITHEET, 


TATODNI-—YEVY FTA 
DEC ERLOIDNI—VEV YF TAT 


Sy F Lit 
frase hn 





HEAL EHE Sem, ANT TANVOPEIETREVCEICLET, BPRMEA 
HPoPMAGUABCEEL, AVY FEL THIMIDY S47 PLENTY 
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$A, HERAT VY avisOP sy -YOMICES CeIsbERT, CHY,ERE 
ALE HEF SROTTST, 

PNY YTS DPEDILS]D DAD b BRD, NI - VY ORBOR [Crore 
AMORMIZBTEPFSE. LOD SIY—-YH?7EY 200754 bREELTIO 
ANI VECHIHELTIX INGA FOLEY RRWVEF, COMERS WE Ste 

IZOD BOW % EG BARE 6 H™e E HICMN ELK, 

TA NMERAIADAHIC TN TONY — vy ERI L, TORE NO Dts THIN 
(Bao CRT LET. 

kgrepli‘-v’A7Y a -OMBELEF. ERENDFOmatcha ‘—-a’* Rid 
‘— CDRS LET, S-VWOWE ERIC LET DH 


OS9: grep -av patternl pattern2 


teLeB li, patternl & pattern? Die ovyFLAOTOWHSNSZTE 
CaN ET, 





7x expanded ‘grep’ x7 
7x Usage: grep <-aonx> (pattern). xs 
7x if using ~a or -o option, pattern may laid more than two. 


-a means ‘and’, include patterni AND include pattern2 ... 

-o means ’or’, include pattern! OR include pattern2 ... 

-n means ’line number’, print with line number 

-v means ’reverse’, if NOT include pattern xs 


7k SYNTAX: 


**? matches any string even NULL string 
age matches any one charactor 
ee matches one charactor exept ’a’ 
er matches top point of the line 
*$? matches bottom point of the line 
"¥? is escape-sequence, 
matches followed charactor itself 
"¥1b’ but, if followed two chractors are HEX, 


matches one charactor it means as ASCII 
"Label matches one charactor *a’ or *b’ or ’c’ 
*[*abc]’ matches one charactor except ’a’, *b’, ‘c’ 
in [..], *a-c’ maches one charactor within ASCII ‘a’ to ’c’ x7 


#include <stdioeh> 
#include <ctype.h> 


#define YES 1 
#define NO O 


char buf (BUFSI2Z]3 
int andpatterns 
int orpatterns 
int numbers 

int reverse; 
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main(¢ argc, argv > 
int argc; 
char xxaravi 


register char xpi 


int Cy ni 
for (¢ --argc, ++argvi *(p=Kargv) == '-"3 argc--, argvt++ ) ( 
if ( k+t+p == "¥O" ) ( 
usage © § 
return: 


) 
while (CC = Xpt+ ) 
switch (Cc) ¢ 
case ’a’: andpattern = YES; break; 
case ’0’: orpattern = YES; break; 
case *n’: number = YES; break; 
case ’v’: reverse = YES; break; 
default: 
usage © 3 
returns 
} 
) 
if ¢ argc == 0 ( andpattern && orpattern ) 


a 
11 ¢ fandpattern && !orpattern && argc >= 2) ) £ 


usage () 5 
returns 
) 
for ( n= 03 n < argc 3 ntt ) 
if ( makepat ( argv[n] ) == NO) ¢ 
fprintf( stderr, “illegal pattern.¥n” )3 
returns | 


) 
kgrep( argc, argv )5 


usage © 
{ 

fprintf( stderr, “Usage: kgrep <-aonv> (pattern) <~aonv>.¥n” 5 
) 


kgrep( n, p ?) 


int nj 
char *xkp5 
{ 
int matns 
int ltinenum = 03 


while ¢ fgets( buf, BUFSIZ, stdin) ) ¢ 
Linenumt +3 
if ¢ € matn=match (buf.n,p) ) && !reverse |! matn == NO && reverse ) 
putline( buf, linenum )3 
else if ( matn == NO && reverse ) 
putline( buf, linenum ) 5 


putline cp, n) 
Char x*ps 
int ong 


if ( number > 
printf ( “*x05d “, ni 
fputs( buf, stdout )3 


int match¢ buf, ns Pp) 
char Xbuf§ 
int ne 








124 Ciera ok 


char *xp3 


if € andpattern ) ¢ 
while ¢ n-- > 
if «( lonematch( buf, *pt+ ) ) 
return( NO )3 
return( YES )3 
) else if ( orpattern) ¢ 
while € n-- > 
if ( Oonematch( buf, Xp+t+ ) ) 
return( YES )3 
return( NO 03 
) else 
return( onematch( buf, *p ) 25 





Basic09iIc 5 ST UTI 
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3—| NGX-IDELA 
———————— er 
3—|1—I| ICodeEYVa—WADNFGX-Y 


BasicDIN PUY Yr EPACKLESDIEI-Code EY 2-WMEWI PTW 
—FVEVa-WiehoTWE TF. I-Code (-MiM HH CT HTTE6 8 09D 
PUVYECLS OD EPLAOC, POeREL THREATS CLITA FI, 
Runb LA5 FY IA AN-FVYEBRELET. 

Shell av v KOA Y Cl1-Code EV 2—-NVSHMMseij esac, (AGN 
(2) Shell (4 Runb #2) 8-2, I-Code €Y 2 -VREFEO 8 Old Runb CHF S78 
GR-PEAGLEF. (HLS (SH 4 MESH.) CNAVY FIMLTNZZ 
—9#ERZZWA, BasiIN TUT F ALE ¢ AES AAR ICTR 6 6 TRE 
Zeit alse) EAA. 

GE LTITANOBRMOM TPE NAT S77 ATF LA head R#TEF. 





PROCEDURE head 

param file: string(256] 
param n: integer 

dim line: string(256] 
dim path: byte 

dim i: integer 


open #path, file: read 
On error goto 10 
for i = 1 ton 
input #path, line 
print line 
next i 
10 on error 
close #path 
end 





CHE LMT Silt, 


OS9 : head(“filename“,20) 


NEFIMLEF. CHET TA Mfilename” DIKHO 2 0FTMRBRENSTL 
50 RRL, 2ODIMOLESPHACEAMTS LEITH, WBSEZ 
ZLLYCHECA, LEM TAPE, FAMOMR, WBE ICSU OOM 
(EID) SIEM L TOMES) EA. ENMA-—PicL 9 
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TENIZED AIC HS DAUR ICH. HY EAA, 


RERCMEMRLRE LTH. BU -VOMMIRTLEWEF, Shik 
We 52 SBA. HMC K CHENIER VEWZ CECH, 2-#léa 
vy FR BasicDIOTF AS AFATHSEWFZ CE RMA TRLUNIZEHSEVO 
CH 


3-1-2 els sy 


PAM eWPDLW CH KCSAHEESZ ELE, 

HAIMS, HTS EY 2—A I-Code EY 2 -—VCHASBVEEMET SOLD 
TSKUA, FOC, BMED LBZ CHT MAE V 2 VE HS, Zor 
CNA —F (HEM eOWPS, LM4SZNK I-Code EL a—-—VFMHSZ|C 
EITRITIG EMRE, 

pIIZIZ, module Lwjavy FRHAoRELELES. dis SRS, 


OS9: module argl arg2 arg3 


chic oT, module (cldarg] arg2 argvcewjex5 X-H HZ GENE 
J. module (E2NEYTNVA7 x-—bhCK CN, SHiHMEC CN, 25 LTS 
SRM EMM Fic -Code EY a2—% (filZIF module_main) #4#*¥4, 2 


gene 
module_main (“argl arg2 arg3”) 


EWI ROMBCRETF, COT, COMPRM BNF X-Y ELT, Runb Fit 
(Fork) L, module ff 4 (x Runb Dat F eHE ET. 





00001 JOO KKK KK IKK IK IKK IK 
00002 * 

00003 * BasicO9’s procedure drive program 
00004 x 

00005 * give parameter to *procedure’ 

00006 x as one string. 

00007 

00008 

00009 SOOO OOOO OOOO OOK OOOO INK IKK 


O_O 


00010 
00011 

00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 

00022 
00023 
00024 
00025 
00027 
00028 
00023 
00030 
00031 

00032 
00033 
00034 
00035 
00036 
00037 
00038 
000393 
00040 
00041 

00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
000593 
00060 
00061 

00062 
00063 
00064 
00065 
00066 
00067 
00068 
00063 
00070 
00071 

00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
oo008t 
00082 
00083 
00084 
00085 
00086 


0000 


000D 
0013 


001C 
OO1F 


0020 


0000 
0000 
0100 
01Cc8 


0024 
0024 
0026 
002A 
002C 
002E 
0030 
0032 
0034 


0036 
0036 
0038 
003A 
003C 


OO3E 
0040 
0042 
0045 


0047 
0049 
004B 
004D 


OO4F 
0053 
0055 
0056 
0059 
005B 
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* 
* Usage: 
* 
x OS9:module parameter 
* 
* then ’module’ forks ’Runb’ giving argument as 
* 
x *procedure (“parameter”) ’ 
x 
* 
* *procedure’ must have 
x 
x PARAM parameter: STRING[256] 
x 
ifpl 
endc 
87CD0067 mod Size,Name,Prarm+Objct ,ReEnt+1,Entry,Mem 
SO IOR KOK KKK KIRK KKK AK AK AK IK OK HK KKK 
* x 
* please change these 2 lines. x 
*x x 
6D6F6475 Name fes 7module7 
70726F63 PrcName fcc 7procedure’ 
x x 
* * 
SOOO OOOO OOOO OOOO OIC KK 
202822 fec AOA 
00 fcb 0 
52756EE2 Runb foes  7Runbs 
org O 
Param rmb 256 
rmb 200 
Mem equ . 
Entry equ * 
3410 pshs x 
308DFFE9 leax PrcName,pcr BasicO9 procedure name 
31C4 leay Param,u Runb’s parameter area 
A680 bshi Ida + xt copy procedure name as Runb’s 
A7A0 sta oyt 
26FA bne bsh1 
313F leay -1.y 
3510 pulS x 
bsh2 equ * 
A680 ida axt copy my parameter 
A7A0 sta a¥* 
810D cmpa #%0D end of parameter 
26F8 bne bsh2 
8622 Ida #”* 
A73F sta -loy 
CC290D Idd #*) ¥256+$0D 
EDAI std aytt 
3440 pshs u 
1F20 tfr yod 
ASE 1 subd ,Stt+ 
1FO2 TE diy 
* 
* U reg. means parameter address 
x Y reg. means parameter size 
* 
308DFFCD feax Runb,pcr name of Runb 
8611 Ida #Prarm+Objct 
SF cirb 
103F03 os F$Fork 
2506 bes exit 
103F 04 os9 FeWait 
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00087 OO5E 2501 bes exit 
00088 0060 5F cin 

00083 0061 103F06 exit os9 ~FSExit 
000390 

00091 

00092 0064 O80ASE emod 

00093 0067 Size equ x 
00094 end 





cnie ko T I-Code €¥ 2 —V CHS module_main (2 lk 1 MHD MFI DYE 
SnrET, LRA 7T module_main MD BHClKOLIKABBLTHKET, 


param argument: string [256] 


BEDIAOICUA REQH6LLTHVET. 
NZ A-FUU VD REA E LUTHENAZACEPHSDRMSZEZIC, NFR-ID 
ERIS TAT AFAOAACT. MMHCEMICOWTHLZSCLICLET, 

ST, module. aMDY—-A®MNIFDDS L3G IC, ROR CHA TF } MELT 3-5 — 
3 6 SUBIC U TH SRA TTRYTVLTR Slr 

HIS BasiDIN PAT F ANLHROP AY YP oHRSEN, PACKtTS 
CMRONE LV a — NPE MSLES, module. a HSA TTRYTVLEF 
F427 PeEV Ss —Ive, PACK UL kode UY '2—)L EGG aaa, C 
MDSK2IE-THIFAVY FOHRERY) CT.(COMT bY Pa bh eT 
WREIC LTBI DEENEWEDZIC LTRS.) 
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3.1 3.4 2ATA Oe 


NZX —FPMEMAD MPI LTHES NS RY, COPD S BMBEMY 
TIFEDVECT. RUTRIOBR, ANAM —-FECMASNET 
DC, BEC EMICMOYEF. 

DHROTA BSATAELED© 

EFT Bil, CHBOAKETST. CCF MIS RIES NF, argeb £ Uargv 
DVESNET. argclss|MOMRMeKL. argvisSiRADK A VI DH MA|R 
WNCH, BasicOVClt 4 VY OMEOEOOD TC, SED IMM RPI EE 77 
IMBM ESR. FODA YP yY9A7ATRHLAEBEWLIIHLZEF. LAL. C 
& Idi > T Basic09 Cld TRROK FIM DIE ITVS << (Pascalmtexee b 
LIL THSRHO), FIPS SUMEACTSROIFNY RP. TLEVE 
>. 

ARE ClEKICIMNS BIOHKE CS CLICLELK. THbbegetarge 45 
PROCEDURE &38U TS5/KER) MLEF. 

getarglt 5-2 ENRXFWNORMO MEI WS CTARIC. IO HL FRY 
EMER EME LET. AZIZ, 


” 


argument=” arg1l arg2 arg3” 


(cgetarg & He ik LHL ET. 


YO aH ROMER 





“argl arg2 arg3 "arg2” arg3” 


"arg2 arg3” "are3y 


m9 


"arg3” 


9 9 





MFEDIRD AN—AlL AX vy TFaUNET. 
»LAIRBITNRTI PANE TH SED. (HODITANMIZIDWTONTAY 
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VY ®onefilee FUL) KNEGRTPAOTFFIAMCEATLE I. 


PROCEDURE module_main 
param argument: string(256) 
dim arg: string(256] 


loop 
run getarg( argument, arg ) 
exitif arg = ~*~ then 
endexit 
run onefile( arg ) 
end!oop 
end 





ERYLATY av7z7eEwO Ch izfloop-endloopM fil iz 4 4 —loop 
BBS, FOWCTAITORESETAITE CLE 70 FOMICMENIT SS 
Lilt, getarglgh COKPRMEBSBAZTLEIRHIC, BPEDEKETE CHIU 
BUTHREIFMIZEEEVEDIOCECH, b0E RARE, THY a vO 
fEReMOT AY Y + CToTLEICETT. TORR 


argument + 


E UCHLI LIC LT LE ZlF arguments Hs RZ ENECA. 





00001 SOOO OOOO OOOO COOK KK 
00002 * 

00003 x RUN getarg¢ line, arg ) 

00004 x param line, arg: stringl???] 
00005 x 

00006 

00007 ifpl 

00008 endc 

00010 

00011 0000 87CDO093 mod Size,Name,Sbrtn+Objct ,ReEnt+1,Entry,Mem 
00012 OOOD 67657461 Name fcs ygetarg’ 
0Q013° 0020 Mem equ 32 

00014 

00015 0020 BLANK equ $20 

00016 OOFF EOS equ $FF 

00017 

00018 

00013 D 0000 org 0 

00020 D 9000 RetAdr rmb 2 

00021 D 0002 NPar rmb 2 

00022 D 0004 Linddr rmb 2 

00023 D 0006 Linsiz rmb 2 

00024 D 0008 ArsAdr rmb 2 

00025 D 000A ArgSiz rmb 2 

00026 

00027 

00028 0013 Entry equ * 

00029 0013 EC62 Idd NPar,s 
00030 0015 10830002 cmpd #2 

00031 0019 266E bne parerr parameter error 
00032 

00033 001B ECF804 Idd {(LinAdr,s] 


00034 
00035 
00036 
00037 
00038 
000393 
00040 
00041 

00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 

00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 

00062 
00063 
00064 
00065 
00066 
00067 
00068 
000693 
00070 
00071 

00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 

00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00030 
00031 
00092 
00093 
00094 
00095 
00036 
00097 
00098 
00083 
00100 
90101 

00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 


OO1E 
0021 
0023 
0026 
0029 


002B 
002D 
002F 
0031 


0033 
0035 
0037 
003A 
003D. 
O03E 


003F 
003F 


0042 
0042 
0044 
0046 
0049 
004B 
004D 
004F 
0051 
0053 
0055 
0057 


0059 
0058 
OOSE 
0060 
0062 


0064 
0067 
0069 
006D 
OO6F 
0071 
0073 
0075 
0077 
0079 
007B 
007D 


007F 
OO7F 
0081 

0082 


0083 
0083 
0085 
0086 
0088 


00893 
0089 
008A 
008C 


008D 
008D 
OO8F 
0091 

0093 


E3F 806 
1FO1 
ECF 808 
E3F80A 
3416 


AE6GS. 
8D5E 
ACE4 
250C 


3264 
86FF 
A7F804 
A7F808 
SE 

39 


1OAE6C 


ACE4 
2413 
10AC62 
2438 
A680 
S1FF 
2708 
8120 
2706 
A7A0 
20E9 


301F 
10AC22 
2404 
86FF 
A7A4 


ACF 808 
2716 
1OAEF 808 
ACE4 
240A 
A680 
S1FF 
2704 
A7A0 
20F2 
8S6FF 
A7A4 


3264 
SF 
39 


3264 


C634 
39 


53 
C638 
39 


A680 
8120 
27FA 
301F 


getarg! 


getarg2 


getarg3 
getars4 


getarg5S 


getarg6 


getarg7 


getarg8 


tooshort 


parerr 


skip 


addd 
thr 
Idd 
addd 
pshs 


Idx 
bsr 
cmpx 
bcs 


leas 
Ida 
sta 
sta 
cirb 
rts 


equ 
idy 


equ 
cmpx 
bee 
cmpy 
bcc 
Ida 
cmpa 
beq 
cmpa 
beq 
sta 
bra 


leax 
cmpy 
bec 
Ida 
sta 


cmpx 
beq 
Idy 
cmpx 
bec 
Ida 
cmpa 
beq 
sta 
bra 
Ida 
sta 


equ 
leas 

cirb 
rts 


equ 
leas 
comb 
Idb 
rts 


equ 

comb 
Idb 
rts 


equ 
Ida 
cmpa 
beq 
leax 
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{LinSiz,s] end address of ’arg’” 


d,x 

(Argddr,s] 

{ArgSiz,s] end address of *line’ 
dsx 

LinAdr+4,s 

skip return D: size 
1S 

getarg! 

4,8 

#E0S 

{Linddr,s] 

CArgAdr,s] 


¥ 
ArgAdr+4,s 


* 

1S 
getarg3 
2,8 
tooshort, ’arg’ is too short to copy 71 
ax 
#E0S 
getarg3 
#BLANK 
getargs4 
syt 
getarg2 


14x 
25y 
getargS 
#E0S 

ay 


(LinAdr+4,s] 
getargs 
([LinAdr+4,s] 
+s 

getarg7 

Xt 

#E0S 
getarg7 

vt 

getarg6 
#E0S 

oy 


* 


#52 Out of range 


it 

axt 
#BLANK 
skip 
peal lirir.4 
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oor 0095 29 nos 
00112 

00113 

00114 0096 44D290 emod 
00115 0099 Size equ 
00116 end 





ST. BasioI9C avy bf atu LABAL io Tiligetarg £05 LB bHnE 
Fo RHOWS lsgetarg7elt thor LT (StartupC) loadL, XEYVEYa—vie 
MESETHEF. COLIMLTHUIE, AVY FEES CL Kegetargev— 
YE SVER PLY OEM TORT. 


3-—Il-—4 POrYvrrEZnsgze 


BasiclVS 7 OY Yr OMEN EL THMENSCLISMNELK, TOTS 
ADE a-MACEWI HA CIE KR HE CE CTD, RALAUGD&SET OT 
YU er ThEV2—-VELTERENTHETFDT, BL DAVY FeO TI 
CI bi, WifFoRdSDEMUAHOT OY vy wRCRTLES WABEDA 
ET. SRIEAN ERB TS Thib7o TR SbITCEXZOT, BISU EC 
kok ACT AYY + eMBIETSZPYLNETA, 

HLIZVDUELOIVY FRM UAMOP OY yy eH THREDFSL, DL 
(LPO EPR OEICEO ET, ERG. Ny e-—VILLET TAN EVH— RT 
BR, DLEOHOD—-DLMULAMHONE YD 2—-—NOTCCEYa—N FE VUT} 
YEKHSL, COMATAO-FTZDELMTLEIDCH, LeAeotTEH 
DRANEY a2—-VSU-FENKWRY, WEKTLEF LFTSZL, Paovyr 
MH La LA-ihoa TC LEWES, 

CEH SF RIL 2OL DH) EPL, B-OHHZEG VG IVY Pe 
OP SSB E') LICMRSHCHS CECH, ERBIOHESL, AULBAO 
PAY Y ESE I ECH, 

Halk AYIA ANY eS HVRBC LUG CECH OS, Savvy eICBIS 
LAMPE CS LS CEMCAEES HMC getarg (SF SCTIWVIFAR ROK 
REF. CDE RNY F-VERS SALEVICMBSETHUIF, b-—IW 
COX EV MREMETSCLEF. CHHl(S Runb OM#ECMPCHZLEZT 
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SLWVMSLMEtA. LALVDRA MHS ETH. CEICRMHTLEI LS 
GRAYS HEE SA THALIMILZELVCEICEV ET, BE DEAE) 
Mbt <¢ orem S unlink LEI EWI DIFIIIVAOEVIOTH, 

BNL, AEVITMBES RSL HICH YOMRHDALETA, £5 CHIN 
IEPLZTA EVO) ET. ERI CCMUCNADEY 2—- WAX E 
YRRHoRELTH. BHD TNT HTH) EA, 

BEDROICIRAOGM EV EBDNZOT, BEC UABRDEY 2 
WCHh2Th, FIVY FICK ORAMESZSECEICLELA tH Tb 
KOR WTC HWIOMPRVGH CIM Z > TMEV MBC S’TL EG. ERD 
WIP) UBM SE Ho TLEGCEMHSMSLNECA, 

CHEMERT SRO, PAYVV ORMOND IHRE ODEST, THdDH, 
AVY FORME IY LY YOR MOMICYSHFSCEITSZOCH. PAIX, 
wild 27» FHM match VOY Y + O*RHilt wild-match EF SNCF. FOR 
HULAAKDLONCY, find Ivy F CHAT ABA find_match & 39 HD 
KH HT ET. 

CHoeid, BIVYETCLICPACKLTV-YL, CMDS LTHS 
Hgtg 


BBIDEBLDAEEEBRMMLY AF AOR LoTR ET. OLA 
MBOHRE La CKEVICMEES LAD CHNIZ, RHOF UY VY ~4Zo-M 
PELE SW, 
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3—2 FOTF LGI 








3—2-— 1 err 


Basic0D9@ 2 vy PAA ICEL TAI SROORMOPLELTELT = 
FR yRM-VEMATFSIVY FEFoTHEF, EM DTE, LI-HFE 
HET SCRETSZLI-“A yeR-VRERTRUDNLOTT. 

Piva Tz Id, 


OS9: err 214 216 


EES = BeOS OER Ss 

FuPF L\z/d0/sys/errmsg 4 -FULTRIARUIOD MME EOTTD ZH 
CPRET SIV Y FCT. 

Vv 2 (2 ld printerr IVY PERE CH OT, TIA ye -VRM RVG 
icli errmsg 7 7 47% grep Cill << BE LWITREME FT SRAGEGA. ¥ 
RR, UNV LIZ LT &, printerr ® unlink FAC LACAEWRHYI, HE 
printerr {TL CL EF EMME WS EH CHRTE HOE Mb LS wb Y 
Ed. HIC7 Oy EN-ATILI—-OBI PH 4 AFEPFEALCTEETH 
SRM SPY, FSSC CHV ET, 

STHUFFAIEF 25 CGHHOBOOLEAN BORA eB LY 287 2 — 
F CHES NAME TRUE, CHIUIFALSEKey bLES, OF 
DDR F—OMS 25 5icxwLTHY, TRUEDZI—-RUAWL 
THEWVEWFCERRLTRANTSH, REL, LI—-OIHELEVADT 
FALSEKLTBEED. (EF CHE LEV OTT HRSETRUEKEITHT 
b WVIZ ABA SAE DE AEA DS) 

wc /d0/sys/errmsg ®A—-TY LLFTPOMRMAIAA THAET, errmsg (iK 
DEAMENCGoTWET. 
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CMOLUTESTRINGMOlineicftAL, VAL®ENEILFI-HEMINTE 

GERELTHSNEF, CORBEA VY FY 7AELTHOMWMeEATTRU 

ERord line FEDEEMALET, 
DLER EB bMS ES iC errmsg (efFE LM ZF ISH Ck ERMA, 





PROCEDURE err main 


x err -- print errmsg file *) 
es usage: err (error number). *) 
base 0 


param argument: string(256) 
dim line: string(256] 

dim init, table (256): boolean 
dim i: integers path: byte 


argument = trim$( argument ) 
if argument = “~~ then 





init = TRUE 

else 
init = FALSE 

endif 

for i = 0 to 255 
table ci) = init 

next i 

loop 
run getarg( argument, line ) 
exitif line = “* then 
endexit 


on error goto 999 
table(¢ val(¢ line >) >) = TRUE 
on error 
end! oop 
table (0) = FALSE 


open #path, ~/dO’sysverrmsg”: read 
while not eof Gtpath) do 

input #path, line 

on error goto 10 


if table( val( line ) > then 
print line 
endif 
10 on error 
endwhile 
close #path 
end 
999 
print #2, “usage: err ( err num }.” 
end 





35 2 —.2. ombh 


mh [2-8 y¥ FHYUSNREVYA-NMITPANMHOD, FEV A-NMORMS L 
Un » SHRELAT STAT AIATT. 

ident CSMUEIRGOLISCRETR, TOMA EMO MBC HI CeIET 
x$2A, mhldt7 ya vRMLOMILE VY a-VZDAEMALAF VY ave 
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LUC ROTC » SHRED TS OHELEF. COEF ICHREH 
DET ERKOEFGUHOBUCHEZEIICE) EF. (CHISKBICMBOV AT 
Ls CHUB ICT 2 TW SFR TCT.) 

VAN 2 Tl AVY FEN yYF-VIEL TRS EXEVOMPICE SEVIS 
CALAIS BALE Le, CHAMPION y F-VUEF SIME LRBEWESL 
EDR. VNVZMALEYV HY 4YCLAKBMILCHDNSERH, LOD Ny 
—YOVA RE AK BORE) SVICMZOMEVCLEG. RRL, TS 
MOCACLERITEWME DIL, FI CIS) ESHA, HABHOMUGUSE 
DEILIODVECT, Him 4 KBERIE8 KBDNYDD*% BRUM S ODED 
WARNE LE BDREF, 

MPL RA ORR, REOVEMELRERICESTSPTH, BR 
RZSENETUTFIARECIANTHVRMERSZROI (ZAGZCLEWS 
WERATRAWCEBBATHM DS), 


OS9: mh ~—ex attr. etc data. etc exbin. etc 
SVANKOL JA be. 


OS9: wild /d0/cmds/*.etc ! place mh ~—ex * ! shell —p 





"attr.etc’ 

module name size type lang atsrv 
Attr 0286 Prerm Objct 80 01 
Build 0054 Prerm Objct 80 01 
Del OOA5 Prarm Objct 80 01 
Dir 0300 Prerm Objct 80 01 
Display 0084 ~Prerm Objct 80 O1 
Echo 0022 Prerm Objct 80 01 
Link 002C Prarm = Objct 80 01 
Makdir 0022) Prerm Objct 80 O1 
MDir 026A Prerm Objct 80 01 
Merge 0068 Prgrm Objct 80 01 
Mfree O1EB Prarm Objct 80 01 
Procs 0280 Prarm Obsct 80 01 
Rename 011D ) Prerm Objct 80 01 
Unlink 002D) Prarm Objct 80 01 
*date.etc’ 

module name size type fang atvrv 
Date OOFD Prarm Objct 80 01 
Deldir 027C Prarm Objct 80 01 
Free 02D1 Prarm Objct 80 O01 
pwd 0130 Prerm Objct 80 01 
pxd 0130 Prerm Objct 80 01 
Tee 007D) Prarm Objct 80 01 
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Tmode 0207 ~Prarm Objct 80 01 
Ic OOCD Prerm Objct 80 01 
lin OOC9 Prarm Objct 80 01 
lower OO8F Prerm Objct 80 01 
upper OO8F Prerm Objct 80 01 
rev 0099 Prsrm Objct 80 01 
hex. OOB5 Prarm Objct 80 01 
"exbin.etc’ 

module name size type lang -atvrv 
Exbin O1BA Prarm Objct 80 01 
Binex 0278 Prsrm Objct 80 01 
Dump 0186 Prerm Object 80 01 
Verify 0172) Prerm Objct 80 01 
Color. 012D Prerm Objct 80 01 
Key. 023C Prearm Objct 80 O01 
Wset 0193 Prgrm Objct 80 O01 
f dump 0343 Prerm Objct 80 01 
Save 0067 Prarm Objct 80 01 
*kset.etc’ 

module name size type lang atvrv 
Kset OOoDD) ~Prerm Objct 80 01 
we OOF6 Prerm Objct 80 01 
print 0367 Prarm Objct 80 01 
fomp O2AA Prarm Objct 80 01 
mdump 027D Prerm Objct 80 01 
Xmode 0391 Prarm Objct 80 01 
Rename O11D) Prerm Objct 80 01 
*pmode.etc’” 

module name size type fang atzrv 
Pmode 0355 Prerm Objct 80 01 
Sleep 0040) Prarm Objct 80 01 
13) 048B) ~Prerm Objct 80 01 
Ident O6E7 Prarm Objct 80 01 
hex 008B Sbrtn Objct 80 01 
*graphics.etc’ 

module name size type lang atvrv 
Cis OOBC Sbrtn ObJct 80 01 
Color OOCE Sbrtn Objct 80 01 
Connect 0134 Sbrtn Objct 80 01 
Key QOOE4 Sbrtn Objct 80 01 
KPrint O13F Sbrtn Objct 80 01 
KSymbol 0184 Sbrtn Objct 80 01 
Line O1F3 Sbrtn Objct 80 01 
Locate OOFD Sbrtn Objct 80 01 
Paint O16B Sbrtn Objct 80 01 
Pset 0109 Sbrtn Objct 80 01 
Symbo |! 015A Sbrtn Objct 80 O1 





Mill ZIF lin FIMO REZ ZOCHMIZ, attr. etc & apart CHHEL, [EIEMRT 
merge LT attr.etc TAL MEMYIMZET. KROEEM FAS apart MHA & 
BI LTR Sh, 


SCL APY ave CH ke 8 Oe ees Te 
erlgdravy kOe APY avhAet. LOR LOREM 4S 
ROLERLET. UH XV UIET TA NMMRTF AVT PVICHSCEERLET, 
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PIL a VIET OIE LTH ROH, exten EVI GLOVA 
LE OBEOHhIZBOOLEAN#® execute & expand ¢ Cte Let. F 
DNV ES STORY TANNED THES, PUN LNTHSIKFES 
HA, Leewot, RE UTHPIDP ROC EDUREKE CHL TOD 
Alt Wse) EtA. 

extern ICIZ 2 Otic tps Lt lgs L197 MFWMMMESAEF. COZ (x% 
NENETCEXS. VAT / BH BERT LEM EHS SD UME YbLTRE 
EF, CHIETOTIAMCST 0 LEMIRE LTRDNETONT "RB Els 
Bbten kD ICL TFS}, Basic09 CE 7 2 7 SVR Z GOH, BAO 
MHULD CR EVE CEVA, MWMLETSRBICIEDATAR EEG L 
PbO #etA. HUT Sice7 TDATAX EMA THO CDCIFA RAD 9 
FRETDHO, MIICANTHV THIS LA CHRANT EOF CLICLELE re 

5 190 extern DEKE LT head £95 HAA YD ETA CMTS 
DANEEL THES ATOETS CUE A EY MHHUOLOOGADRED 
CH, TNCORRMEU-AWICHET SE, PROCEDURE¥UHLOS 
REM CLICAP y FOIA ZT, ERICNZERROR #207(2 
EYAL) CHEDTLEICLEMAVKETOT, COLI Ze HEHE % ALE ICG 
PMIZD—-HVERMET BOILERS LTRS EOGHEEEDTHONT 
FoHOLD mhMETHILEDILEVTLE IM LD AE ) SIRT SCH 
AVLLMBDI HY SHA, 

SCHEV A —NWOIAS / AMER SO MIC 1 OH THT EDEN 
RREREWMCHLAAME CEE IF. BMAF "$111 ERRENSI VG 

TPrerm+Objcts EMAIEI RAR YP TOTS. € CCECHEOMFE LE 
PRY TFIOWI EBL THORKDEDEMALET. 
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CblCode 
FrtnCode 





REBO VOPR DNR 1 6HETRABTSCEICLET. 


ST, LODAHT TA WEES ZORA mh_onefile TH. 7 TA IVEA-TF 
yF Stele mh_openfile RUM LETD, FIC - KATY av BH 
Pp¥jmickot, READSSVIZREAD+EXECTOPENLEF, 
CHECK BU SKOVOD LIT MHROMaSELET. 


(exec ? fopen(7 74%, “rx“) : fopen(7 7 4 1V%,"r")) 


NUS’ 7 4 VIS, extern. execute WBTRUEBSIZSRTT 4 V7 bY mw 
OL. FALSESOIET-4Y7FAVZ RV PoORMLET, REL, 74 
VIbYVATA MELTS EMMA - FY LROCHIEF-KGITLEWE 
+. EDWAICH DIAZ by PHF CIE MC UH & EIT S (21S Basic09 & fi 9 
BY ON ERROR GOTOE) flit 0 FAA, 
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PROCEDURE mh_main 

base 0 

param argument: stringl 256 J 

type header = modname: string(32]; siz, tp, Ig, at, rev, hp: integer 

type GLOVAL = head: header; tps (16),1gs (16) :string(8]; execute,expand:boolean 
dim extern: GLOVAL 

dim arg: stringl 256 J 


shell “link mh_main mh-option mh_onef ile mh onemodule” 
run mh_option( extern, argument+~”) 
loop 


run getarg( argument, arg ) 
exitif arg = ~~ then 
endex it 
if asc¢ arg >) <> $2D then 
run mh_onefile( extern, arg ) 
endif 
endloop 
shell “unlink mh_main mh_option mh_onef ile mh onemodule” 
end 


PROCEDURE mh_option 

base 0 

type header = modname: string{32]; siz, tp, Ig, at, rev, hp: integer 

type GLOVAL = head: headers tps (16) ,1gs (16) :stringl(8]; execute,expand:boolean 
param extern: GLOVAL; argument: string(256] 

dim arg (256): byte; i: integer 


extern.execute = FALSE 
extern.expand = FALSE 
loop 
run getarg( argument, arg ) 
exitif arg (0) = $FF then 


endexit 
if argo) = $2D then 
for i = 1 to 255 
exitif arg¢i) = $FF then 
endexit 
if are¢i) = $45 or arg(i) = $65 then ¥(k -e x) 
extern.expand = TRUE 
else if arg¢i) = $58 or arg¢(i) = $78 then ¥ (kK -x *) 
extern.execute = TRUE 
endif ¥ endif 
next i 
endif 
endloop 
for i = 0 to 15 
read extern.tps (i) 
next i 
for i = 0 to 15 
read extern. Igs (i) 
next i 
end 
data “00” 


data “Prerm”, “Sbrtn~, “Multi”, “Data” 
data “50”, “60*, “70°, “80”, “90%, “a0”, “bO” 
data “Systm”, “Fimar*, “Drivr*, “Devic” 
data “00” 
data “Objct”, “ICode”~, ~PCode~, “CCode*, “CbiCode*, “FrtnCode” 
data “07”, “08", “09”, “Oa~, “Ob”, “Oc”, “Od”, “Oe”, “Of” 
end 


PROCEDURE mh_onef ile 

base 0 

type header = modname: string{32]; siz, tp, Ig, at, rev, hp: integer 

type GLOVAL = head: header: tps (16) ,1gs (16) :string(8]3; execute,expand:boolean 
param extern: GLOVAL; name: string{256] 
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dim position: real 
dim nam: integer; path: bytes mode: integer 


run mh_openfile¢ extern, path, name, mode ) 


if mode = -1 then (k can’t open *) 
print #2, “can’t open ~ + chr$($22) + name + Chr ($22) 
end 


else if mode = 2 then (« directory *) 
print using “si7<*, name; 
print *<d>* 
else 
position = 0. 
if extern.expand then 


print 
print “'* + name + “** 
print “module name size type lang atvrv” 
BRING, “aes aesma—Reaases Sane meee ae Sa See = 
endif 
loop 
run mh_onemodule¢ extern, path, position, mode ) 
exitif mode <> 0 then ¥(k end of file or error * 
endexit 
if extern.expand then 
print using “s17<*, extern.head.modname; 
print using “h4**, extern.head.sizi 
print using ~x2,s8<", extern. tps (extern.head.tp) 5 
print using “s8<", extern. Igs (extern.head. |g) 3 
print using *x1,h2*,x1,h2°", extern.head.at, extern.head.rev 
else 
print extern.head.modname 
endif 
end!oop 


IF MODE <> 0 AND MODE <> -1 then 
PRINT #2, “error #73 mode 
ENDIF 
endif ¥ endif 
close #path 
end 


PROCEDURE mh_openf ile 

base 0 

type header = modname: string(32];i siz, tp, Ig, at, rev, hp: integer 

type GLOVAL = head: header; tps (16) ,!as (16) :string(8]s execute,expand:boolean 
param extern: GLOVAL; path: bytes name: string{256]; mode: integer 


On error goto 10 
if extern.execute then 

open #path, name: read+exec 
else 

open #path, name: read 
endif 
mode = 1 
end 


10 on error goto 20 
if extern.execute then 
open #path, name: read+dir+exec 


else 
open #path, name: readtdir 
endif 
mode = 2 
end 
20 mode = ~1 


end 


PROCEDURE mh_onemodule 

base 0 

type header = modname (32): byte; siz, tp, Ig, at, rev, hp: integer 

type GLOVAL = head: header; tps (16) ,!a8s (16) :string(8]1; execute,expand: boolean 
param extern: GLOVAL; path: bytes position: reals mode: integer 

type moduleheader = msync, msiz, mnam: integers mtplg, matrv, mhp: byte 

dim mhead: moduleheader 
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dim n? integers; c: byte 


extern. head.modname (0) = $FF 
On error goto 10 ¥(K if error, maybe EOF x) 
get #path, mhead 
on error goto 20 
if mhead.msync = $87CD then 
extern.head.siz = mhead.msiz 
extern.head.tp fix € mhead.mtplg 7 16 ) 
extern.head. |g fix € land( mhead.mtplg, $OF ) > 
extern.head.at land( mhead.matrv, $FO ) 
extern.head.rev = land( mhead.matrv, $0F ) 
extern.head.hp = mhead.mhp 
seek #path, position + mhead.mnam 
n=0 
repeat 
get #path, c 
extern. head.modname(n) = land( c, $7F ) ¥ n=n+# 1 
until land¢ c, $80 >) <> 0 
extern. head.modname (n) = $FF 
position = position + mhead.msiz 
seek #path, position 


uu 


mode = 0 ¥ CK no error x) 
else 
mode = 1 ¥ (kK not module error *) 
endif 
end 
10 
mode = err ¥ Ok error x) 
if mode = 211 then 
mode = -1 
endif 
end 
20 
mode = err 
end 
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paralk2 OD 7 7 AMERICAN THAT SZIVY FCT, 

FRA NORE 2OICMEL THIET, HHEMMANTSZOCEO CRE 
Fo COMPILE -BADT TAN AN CHS LEAGLET, 

APvYay-WeEBSETLTRSEMITCHHLET, 

BULAbDeT 8 OHFEMEL THY, TFRSMEVMS 3 OME 3 OM, TE 
FE H AMAL 3 OTE 3 6H CHRABLET THES 6H), RRL, EbBLOW 
BE 2WD7I TA NOWAOMIS LOA SRAKT, 

FBRICSMWO EFT SNES, 





OS9: para para_main para_main ! head —10 
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FREE ne para_main PROCEDURE para_main 
kK 

*) *) 
x usage: para <-n> <filel> file2 <- usage: para <-n> <filel> file2 <- 
n>. *) n>. *) 
ox x 

*) *) 
base 0 base 0 
param argument: stringl 256 J param argument: stringl 256 J] 
dim name (2): stringl128] dim name (2): stringl128] 





OS9: para para_main —n < para_main ! head —10 





0001 PROCEDURE para_main PROCEDURE para_main 

0002 (x Ok 

0003 x) *) 

0004 (x usage: para <-n> <filel> file2 «x usage: para <-n> <filel> file2 
0005 <-n>. *) <-m>. *) 

0006 (xk «x 

0007 *) *) 

0008 base 0 base 0 

0009 param argument: stringl 256 ] param argument: stringl 256 J 

0010 dim name (2): stringl128) dim name (2): stringl128] 





& T para_main Cl para_option "FUW LTA TY avORESLETS 
OWayey PSA VEOOO SIA LIZ LTH EFOT argument lZA{EL Ta 
EtA, BBL THY a vViCL7—WH LY Id opterr BTRUEK ZIT 
ito T&T. 

CORT TANZRZOOIMLET. 2OMDIRHR COND A —-7 OBE 
RILDETOC, Z3OVWESORGRILEMOD 2ODARAMICEYV ET. wile 
LOL EER DRBRILB—-O7 7 APRA CHS CREL, FORIEL 
Cname(0)IENULLICLTBEEF. DLA TANVERLODEMPNTOED 
sRBSz7-LLET. 

ZU LTHONKR2ZIDITANEAHK—TYLETA, BLOPENTIIZ— 
RohBeic, EBSMLI-KRokRMPeEEBSAMTROICLI-bF7Y7F (ON 
ERROR GOTOX) #@O THX EF. BT LEVEL bi TLH 9 
EEADCIRY RATE EST OH EA. CON, B-O7 74 IV ABMEA 
HLBESNTHADCHNIEA-FVETF IHS 0 EMA LET. 

-RICT PA IVPEOANBEVH HST AOW para_para CT. EVIE ST 
DHED ARP I MI LoTHHAOBMS 3623 9RELET. i 
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TFEETU-PLETFAR, FOHMLEL 3 VOMPILAPNTHr 


EF. TTAVIMEOFOYA, 7TrAN2MEOFOHA, myc sEOF 
CEVGATCT. 


SI. 


INPUT?READTIS5 EK MRVRH, BIE AA IA tS 72 


{Te 
para_gets & fio THES, CHISAMERE LZ LTHABA BEES 0 


ic. © 


IC BITS fgets ICHAT AZIACH, 





PROCEDURE para_main 


ox *) 
Ok usage? para <-n> <filel> file2 <-n>. *) 
Ok *) 
base 0 
param argument: stringl 256 J 
dim name(2): stringl128] 
dim path!, path2: byte 
dim lineno, errnum: integer 
dim number, opterr: boolean 
dim i: integer 
shell “link para_option para_para para_gets” 
run para_option( argument+~”~, number, opterr ) 
if opterr then 
print #2, “usage: para <-n> <filel> file2 <-n>.” 
end 
endif 
name (0) = ** ¥ name(1) = ~*~” 
for i = Otol 
repeat 
run getarg( argument, name ci) ) 
until name¢i) = ~~ or left$¢ namecid), 1) <> *=" 
exitif nameci) = “~ then 
name¢i) = ** 
endexit 
next i 
if name(O) = ~~ and name(1) = ~* then 
print #2, “usage: para <-n> filel file2 <-n>.” 
end 
else if name (i) = ~* then 
name (1) = name (0) 
name (QO) = ~* 
endif ¥ endif 
On error goto 999 
if name(O) <> ** then 
open #pathi, name(0): read 
else 
path! = 0 
endif 
Open #path2, name (1): read 
On error 


end 


999 


run para@_para( pathl, path2, number ) 
if name(O) <> ** then 
close #path1 
endif 
close #path2 
shell “unlink para.option para_para para_gets” 


rem 

print #2, “can’t open.”3 chr$ ($22); nameci)s chr¢ ($22) 
shell “unlink para_option para_para para_gets” 

end 
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PROCEDURE para_opt ion 

base 0 

param argument: string(256] 
param number, opterr: boolean 
dim option: string(256] 


number = FALSE 
opterr = FALSE 
loop 


run getarg( argument, option ) 
exitif option = “~ then 
endexit 
if asc( option ) = $2d then 
if Option = “-n” or option = “-N* then 
number = TRUE 
else 
opterr = TRUE 
end 
endif 
endif 
endloop 
end 


PROCEDURE para_para 

base 0 

param pathi, path2: byte 
param number: boolean 

dim linet, line2: stringl100) 
dim lineno, width: integer 
dim flag: boolean 


if number then 


width = 36 
else 

width = 39 
endif 
lineno = 0 
loop 


run para_gets( linel, width, path!, flag ) 
exitif flag then 
loop 
run para_gets( line2, width, path2, flag ) 
exitif flag then 
endexit 
lineno = lineno + 1 
if number then 
print using ~i5%,s38%, lineno, ~ “i 


else 
print using “s40", ~ “3 
endif 
print l|ine2 
end! oop 


endexit 
run para_gets( line2, width, path2, flag ) 
exitif flag then 
ltineno = lineno + 1 
if number then 
print using “~i5**, linenos 


print ~ "3 
endif 
print linet 


loop 
run para_gets( linel, width, path!, flag >) 
exitif flag then 
endex it 
if number then 
print using ~i5°*, linenos 


print "3 
endif 
print linel 
end!oop 
endexit 
lineno = lineno + 1 


if number then 
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print using ~i5%,x1,837", lineno, linels 


else 
print using ~s40", linels 
endif 
print line2 
endloop 


end 


PROCEDURE para_gets 
base 0 

param line( 256 ): byte 
param max: integer 
param path: byte 

param flag: boolean 
dim i: integer 

dim s: stringl 1 J 


flag = FALSE 
On error goto 999 
for i = 0 to max - 1 
get #path, s 
exitif s = chr$( 13) then 
line¢ i > = $FF 
endexit 
line¢ i ) = asc s) 
next i 
line¢ max >) = $FF 
end 


999 errnum = err 
if errnum = 211 then 
linec i >) = $FF 


flag = TRUE 
else 

error errnum 
endif 


end 
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3-2-4. time 


time (Lia Ic) PUY 4 KOMEN S AS EWI, F-BASIC® 
CLOCK3avy Fics sssoera, FM—-11808C, b-LUFM—-7, 
8 CRIP ZLYAFABPI Fy YaLlET. 

avy FS@ISF-BASICiAb#T clock E LRA DRATTFAS, clock 
(aT CIEVa-VELTHELETO Ttime £195 BANC LEELA. 


OS9: time on 
C, Zay7*% hh: mm: ssDBCHARL, 
OS9 : time off 


C7 AYIORMRE LDOET, 

FM—11%0S—9Tli, HAY AFALONZ OY ARETE MALTOE 
th, DENFTOIPA MLE DR HA THZDNTCTT, CHIAVY FlSHAT 
VEFID IAPR EPF RH, SAVNIZIELA ERD DY) EVA, Ih 
MOB AE— PIC FOHED INS DIED LI ODRRIETT 

STHAFFIAAISMHC, HOFF AMEN ANHSEL TH SITE 
$A, BAP—F LEG TAVGY FOCECITA, FIT4 VAI RBRLSAF— 
 SELTHEABE CHE ZDE EDR AMUICHLMWSYT IVY FRBP-FEL 
THCRZCLSAALTRET. CHEDF-PZILVTERME 94 Nd 
RL CERI TY AFANEKYAATHEDTCTT. 

FM—11%0S—9lVIFOSA VRBAL TREE RWE LRA, wile 
BIEPTOSA SIL DRESMTHrBvbWj7 CECT HH, time on” 
BRIDLESUTOP A CR RELTRELZUNITESZVODTY, FORWMICIE 
KuAKI¢set time PFT IVY FEMMES, 
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0 1 2 3 4 5 


RS i bVYAPBRIIT 
TC: Hilff#uy ay 
hh: mmissixx He! 4>! # : 20ms 









COCHRL TE SWRI, 4454 }ACH, Chishlfrv2zxe, x 
A VIET SAMY) AADAYAT EET SEOTY. FM—-11 CH 7OP 
APH AASRALEVADTC, CON bIS 0 OI LTH ABNEY 
EA. LRMOTFM—7, 8 COODMYIICTZEP THRE DHAADH ¢ 
ZIT A-AWILF 4 ANY FUCKER EY VRAFAIUARY FELTED 
#30; 

HAENFRIS Basic09 Clt date$ CHA CEDCRESFD’, date$ls CFAM CHM 
& val CRUZ BAB L Ze FMF 0 EAA. CO, HUENEYIS EM set time +7 
AVY EF CRETSZOUMT AY Y > time_settime CT, 

AA YN—-F v ld time_settime MK display clock +7 27y FREGLE 
TOR, CNILKDEFG ELIOT, 


0 1 2 3 4 5 6 


Fi &R757 
CL: #RAS— 
X : XM (0-7 9) 
Y : YH (0-2 4) 
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BRT FIT ERO CHAIR RE EY ET. CD X MRL VS E Cit 
THMIAMMCHT OH, COCIMMALNLSN ¢ MICALETSCeILELR. 
44 CHW EMM DAZ BV EN SILT Dy 7 RRS HIT AT OB-IVLT 
Layo Cty 

GTAVCY PIKOLIGBAKIL CMH THT IVY FELT (VTERM 
(c) Wake NET. 






$14 
SI/YSO (sub inMke$ 0 F, sub outmhF$ 0 E) 
S 1 CBs THAN bR 

SO CKS7N4 bH 
















eH ae Wet 
$00, 








$0 ODMH’ ES 


RAWEAEIS) ADSEBRLTRS, EK, "/Term’# 4-7 F SHH 
IS beWVvGR EACLE D6 

















PROCEDURE time_main 
* *) 
Ok usage: time <onloff>. *) 
O* *) 


base 0 
param line: string(256] 





— 


152 


dim 
dim 
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buf (12) = byte 
path: byte; i: integer 
line = trim@( line >) 
for i = 0 to 11 
read buf (i) 
next i 
if line = “~~ or tine = 
run time sett ime 
buf (7) = 1 
else if line = 
buf (7) = 0 
else 
print #2, 
end 
endif ¥ endif 
put #1, buf 


“on” then 


“off~ then 


“usage: time <onloff>.” 


end 
data $14, $0e, $00, $07 
data $00, $00, $40, $01, $06, $48, $00 
data $03 
end 
PROCEDURE time_sett ime 
base 0 
dim buf (14): byte 
dim i? integer 
dim tm: stringl20] 
tm = dates 
for i = 0 to 13 
read buf ¢i) 
next i 
buf (9) = val( mid$¢ tm, 10, 2) ) 
buf (10) = val( mid@( tm, 13, 2) ) 
buf (11) = val ( mid®C tm, 16, 2) ) 
put #1, buf 
end 
data $14, $0e, $00, $09 
data $00, $00, $3d, $02, $00 
data $00, $00, $00, $00 
data $03 


end 
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3S 2= bt Mat 


at avy Fd LICE LRIVY Fe RMT ZLOCH, HRI 
hh: mm: ss O##N CME) EtA, PZT, 


OS9: at 12:00:00 echo **** lunch time **** & 
CobreB HEY 12°5.00.. Oise & < 
** kK * lunch time * * * * 


Lag rk yR-VRHDNSCEIAV ET, RELIC L EMITTER L, & 
AMEE Cid LAV CHSEKIFS CLICGoaTLEWET, 

LCHAavyY Klisleep LRRiCIASY FREMMTSZCWINST KOLOLA 
IEC ears 


OS9: (sleep 4000; echo **** lunch time * * **)& 


COGS, sleep TSA7Y be A CHHLENNIIe be bE, 65535 
F4yv7 (FROEFM—7, 8OWAT4 34. FM—-1 1LOYAT1 04) 
LAFEOC EBCH ETA, 

DED EDS, FAUSFADPRZORBLBOWRACTLEWCLE ID 

EPR NF A-FEETHME EP BIIMILL ET, AMS CREA. B 
TANGA PUBL ERE- OD AVY BIAVERELEF, CHdOERHMH 
CREA, 

FE LOPS CBU Se ICRA LT, SHI ENEF 4 y FICRAL TE 
DBAAZE sleep TUF EVDFCH, HHENPMe MSITIIDATE$ O48 K 
“ee hh mm: ss OWN es TO SREB ET, 

AA YC getarg CH UNF X-— FRM MLET, CNAME LTMIICH 
Bla FC. RIM AVY FIAYCHSF CT. AVY EFA YVOMAME 5 
BZITOSZMMS VES HY HAA, 

RFR 2 MICHELS SOD at_gettime CT. COU, PILMBE tii pH % BE ZS 
POULMEVAMSELREALMICLTBHAET, 
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THE L OBER D> & BULLER & FE LB [ Va eB sleep FAULIF kv dit CGH 
Basic09IZ(t SS LEE P XDA, Kb IC7FAYY + at_sleep SFUHL 
¥F, sleeplkS7T CU TT CHA CH< LRH EMAC TA, COCK sleep 27 
» Fe L T Basic09 CH Mic fFo THEELZ. 

sleep IVY FONZA—Pid, WHMCS Fav 7EMMEL THIEF 
ATC, at_sleep TlIERMICTORMBELEF, COMMS ERREALMICLTS 
(DER HS b, WMO ELMCHS32767SRMATIWITETA,. FEW 
EVA FAK OTLEVWEF, Ft y7ICMAT SR. FM—7, 8¢FM 
—1L1ICKIFT 4 YVIOKBHBALOVEST, VALCILFM—1 1LOYREARL 
THEFOC, FM—7, 8 CHAT SHRAT I CKOMMReE 100074 

=2 SIC L THU THRSkY 

3276774 v7 RMZABRIL32767F 4 770k Ksleepl, tH 
WPFOBRILS OU7EIF sleep LET, CHB, RIMES GSE CHI KLE 
os 

= MAK Csleep #link BE Vunlink LTH EFA, BLK EY _Elc sleep Hk 
WOACHILIF, link &loadiIcCBATRSv.. EYO-MMNITIZKO EFICTHIPE 
Wit bigs 





on error goto 10 
shell “link sleep” 
goto 20 

10 On error 
shell “load sleep~ 





DECTAR, FRANMOYVALPT ID bORPICHERRM IC GoRN FAL, 
echo DANAE ClLHE SILT LE FD WV ABHER HS YET, CI V5 HE HEL ZB 
MAYA HES ECADCHACLRLTATFAaW, 





PROCEDURE at main 


base 0 

Ok *) 
x usage: at hh:mm:ss command *) 
O* *) 


param argument: stringl256] 
dim time: integer 
dim ctime, atime: real 


EE 
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dim arg: string(256] 


run getarg( argument, arg >) 

run at gettime( arg, atime ) 

run at_gettime( right$( date$, 8), ctime >) 
time = atime ~ ctime 


if time < 1 or argument = “” then 
print #2, “usage: at hh:mm:ss command” 
end 
endif 
run at_sleep( time ) ¥ (kK seconds x) 
shell argument 


end 


PROCEDURE at_gett ime 
base 0 

param stm(8): byte 
param time: real 





if stm(2) <> $3a or stm(S) <> $3a then 
time = -1 
else 
time = (stm (QO) ~$30) K36000+ (stm (1) -$30) *3600+ (stm (3) -$30) 600+ (stm (4) -$3 
0) X60+ (stm (6) -$30) 10+ (stm (7) -$30) 
endif 
end 


PROCEDURE at_sleep 

param time: integer 

dim rtimr: real 

dim TICK, MAXINT: integer 


“TICK = 1000710 
MAXINT = 32767 


shell “link sleep” 
rtime = time 
rtime = rtime * TICK 


while rtime > O do 
if rtime > MAXINT then 
time = MAXINT 
else 
time = rtime 
endif 
shell “sleep ~ + str$¢ time ) 
rtime = rtime - time 
endwhile 
shell “unlink sleep” 
end 
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eo wild 


CHIETA WV EAH FRIAR ZAVSY ECT. NFA -FPELTIES YAY 
REDEDVRMICTIA NMEA PRG REBT OHO EA. 


OS9: wild * 
CHAVYEFLVIbYVORT TAMERS Ny 

OS9: wild /d0/usr/*/*. c 
C/d0/usr D FILES SBI TRERF AVIA RYORICHSCDY—-ATITA 
Wb PBR LETS. 


grep FMVS REPS LINEAR, KIC PoTH Soe ld grep Elz 
WMULZACT, RRs THRZDIIKONTT. 


KF EDRF KALE. 
. We bey FLARES, 


, EAI -THR IT PNIDREW 





OS—9 CET TANBELTKKFEDKEDKME LEGA. Mei 7 74 
WV ePEDMIZIT KMS LCRA VT PVICHAAENTHZOU CIT PETIT 
WEEP -FULTHHCILE GTS SPDPY SLAM, 

#72 grep OME, TOPOL C—O ANI -—YBRENTOMNEL DS 
SROIMLT, wild CIHRE LRT 7A VE DEA CRRM-KT SLODA 
BeyvFLREWJCECBVET. 


OS9: wild a*.c 
Eva FREI ATL T, 


yxzabe. c 


abc. c9 
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Lejgrr¢nvKlavryvF LEA, 

DED EDI. PYF TANKDOMIPANATHSLEMESHETE. K 
vads grep cid RB TREF, LAF -PHR FTI EELDIEV HE 
CHL. MEY. NI-VEBBLTB (EDS FAO RECEN ET, 

CHAN IY Vy FYTORREETEST, MiCkLoC FAY Y » Sic lseya 
Meo UT match cnj sO THY EF, CHbli wild avy FICMAIA 
ORL wild £195 BIIBZRHMEVTCL EF. 





PROCEDURE match_match 

base 0 

param file(32): bytes pat (256): byte 
param s, p: integer 

param match: boolean 

dim c, cl, c2: integer 


while filets) <> $FF and pat (p) <> $FF do 
match = TRUE 
C = pat(p) ¥ p=prt 


if c = $2A then OK 7X? *) 
if pat(p) = $FF then kK only 7x" x) 
end 
else 


while file(s) <> $FF do 
run match_match( file, pat, S+0, p+O, match ) 


s=sti 
if match then 
end 
endif 
endwhi le 
match = FALSE 
endif 
else if c = $5B then Ok PL" &) 
run match_brakette( pat, p, file(s)+0, match >) 
else if c = $5E then KP A2 0X) 
match = file(s) <> pat (p) 
p=pti 
else if c = $3F then CK 72? &) 
(k already match *) 
else 


run match_toalower( c, cl ) 
run match_toalower( file (s)+0, c2 ) 
match = ¢€ cl = c2 ) 

endif ¥ endif ¥ endif ¥ endif 

if not match then 


end 
endif 
s=s+i1 
endwh i le 


if file(s) = $FF and pat (p) $FF then 
match = TRUE 
else 
match = FALSE 
endif 
end 


u 


PROCEDURE match_brakette 
base 0 

param pat (256): byte 
param p, Cc: integer 
param match: boolean 

dim found: boolean 
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dim ci, c2: integer 


run match.toalower ( c+0, c ) 


if pat(p) = $5E then CRS PTS) 
match = FALSE 
P= Pat ol 
else 
match = TRUE 
endif 
found = FALSE 
while pat (p) <> $FF and pat(p) <> $5D do C6 med |e 


if pat (p+1) = $2D and pat (p+2) <> $FF and ta ipeas <> $5D then 
run match_toalower ( pat (p)+0, C1 > 
run match_toalower ( pat (p+2)+0, C2 ) 
if c >= cl and c <= c2 then 
found = TRUE 
endif 
BP Sprig 
else 
run match_toalower( pat (p)+0, ci > 
if c = cl then 
found = TRUE 
endif 


endwhi le 
if pat(p) <> $FF then 
pep i 
endif 
match = not ( match xor found ) 


PROCEDURE match_toalower 
param cl, C2: integer 


if cl >= $41 and cl <= $5A then 
c2 = cl + $20 
else 
c2 = cl 
endif 
end 





match_match 09787 %— Fl450H9V ET, BOOLEAN #!® match It 
{LET RONIOCT, fille stC7rt4nvBZeRL, pat & pCYI-YON 
PRAERLET. Cheb TI FMICMT SHAY I LECHARL CAR 
Basic09 CIE X FW EEDA YF yFRAEWG2WDENCHE SUH 9) ¥ 
tA, FLTC HRC SIE LCs ke ple0 FRELTHA KIN 
IFN FAA, HRS pOMEPAR TAY 2 vIKT VERE OD CHIE L 
LTHESC, 


RUN match_match( file, pat, 0, 0, match ) 


CERO Tg 
else-if #GH2 42 THI TH4MDli case MEWMCKREWI CE RURAL 
ROCF, XIPRRIFICHEMIARYRILT FANE LNI-—Y OW Blas] 
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READ FICTLL Tb LEBEL ET. DSCNS TS BY IS fit TA EA DT 
FAyYVreLCoTHSETA, BRIS CTELVRMOLE Ho TK bOtSR 
OORACEROEOEICE DES, ENA c1lBELUVCc2ATT,. 
CUCTTANELIODNI—Y yy FOMREICSY) ELK, wild avy F 
CHET SDIZ-WMIZ-SAYVARREWGCEPRBOHLTRStA VXAY AL 
BA DOHC -OULIDTI FA NZICDML, BUN OLIN 
YIYT RIA LENE) ERA. KRIAWED—FCHELR NAY A 


he, RRS SRIIZIEL NAY AR ELTRRLAUHIERORWVCEMS, 


HEDNAYVAP EMSMICIEL AY ARRECwICHEL THYEIIMILS 
) kA, 
SIAVAVICHEA LR HRICILT ZIV EA-FCEZONETREVY 
FTSZ—OMBAZDIEDAVBET, TNEND—-DOEDCIWWTHERZ0OUE 
LVyFFAPELNERtA, LODF EVA bV INT, EDFOVRIVE 
APPIN 22% Ch UU NAOKO T FA MIZOWTHANS, EVIOCLEIENE 
JT. THHHSCHIHHEOH LEDEOTT. 

SID VAMP HED FOVAVABSIETTOF 4UVA7RYACHDL, b 
YAMRHICHD”.."ETHRIZFEMCLE DF. CORIZIEL INAV ARELTE 
DFAVIPYVAEMATHEET, 


ALAYTAYY vlepilit KoT, NAX-SOMMLMDAYANT, FENUEDS 
cls PHOT AY Yr IcBRET, 

SCHMLL- bk FL UA RY CT. OHM Pca ETL. RROD 
FoR BINT, DEDW— bh FAVA bY, LOR AVAL YOM 
GEERRLT OTFELEZO OTT, 

M—-bPAVAIRLYVELTHRMASDERRT SHEELTI, EF R IAT 
Fr-TVERRFTSTALCWVIFRAV ETA, FPP O ST RSRL, fl 
DPA AFI 2ZOUEOBHBS-Z ONT ZYAMH SHS, COCHIN 
BrEILETF, MHYICHELIST A ATZTBZEDATANRCTHTHA, IB 
ISR L TAS EWI FEROVEST, BOL EM— bOPEIT AVE A FOE 
SHTML, ULOLG EOMILEoR< FECT, 
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WV—-hISTAVED-EFRBENTOHRBAIDATAXN CH TEARDDE 
VyFYTRENY, wild_wild FRVET, 

wild_wild (CJ > 72M CM FAB root (clk (hb LHAMIXZ) U-b FAV 
bY BBCGELS) As tTWEF, wild_wild DP CIAUY EFL UA RYOA 
IHEALTWAMIZE., FOVAVE RM SMES, FRMIC AAS ePROW LE 
To COMRCCHDERTLTWACEICIERLT FS, 

ZBL COWCHAVY KONAY Ab eH THOS pathlist Mfc before £3 
5 MEME TETD, CNIETAVEA- REV YF YT SESH IE 
FACT. DEY FOAVANWVS MSM NA |) Ab ERE NILE CHFo THOT 
KCEITMIZVUF ECARD, POVNVILOLUEME ERY, LODMRorR 
HWORATICEELL HOKOV AVERT EWG BILGE) Ee 
ho CORD, MOLDEREL THK VEMHAZNTCT,. 

RRELCE CH TW SAHTIM EZ 6, APY T7ERR HLTH SR 
MIL, SROTA VE A-PRBETS EAP YAA—N—-FU-BMOLTE 
FTEIELTLEWESF, KREIS, SACTHAIZSLITI. DEY, 


OS9: wild /d0/*/*/*.c 


CERROR# 207M CLES, F-SLVYV PTH REBZHIHELT BY 
JECWSEVA, LOL, wild mainTOdD Oe HF ADNCHANIZTAWCT. 
(3—2—9 Oflink #BRLTFAa.) 


OS9 : wild_main( ‘“/d0/*/*/*.c* ) #20k 


EFMUIZOLEDECH, 

LAOLENTH AVY FELTOMM A EIMLTTLEOEF, HHRE LTS, 
RF ZILI-ANGRRES MALE EF A-PF4AvATSEW{ CL 
@)ET., before HDF ICTEES LWVIDE—-DOFTTL, B-AMNVEMK 
PIS, UMN CHS find DEF IT ASABE LT LEI DH MRT 
To 
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PROCEDURE wild main 

base 0 

param line: string(256] r 
dim pathlist: stringl256] 


{oop 
run getarg( line, pathlist ) 
exitif pathlist = “~” then 
endexit ¢ 
run wild_root ( pathlist ) 
endl oop 
end 


PROCEDURE wi |d_root 

base 0 

param pathlist: string(256] 

dim position: string{256]; root: string(256]; match, wild: boolean 
dim i? integer 


run Wild separate ( pathlist ) 
if asc(pathlist) = $2F then 
run getarg( pathlist, root ) 
run wildiswild¢ root+””, wild ) 
if wild then 
loop 
read position 
exitif position = ~* then 
endexit 
run wild -match( position, root, 0, 0, match ) 
if match then 
on error goto 10 
chd position 
run wild-wild( pathlist+”*, position > 
10 on error 


endif 
end|oop 
else 
on error goto 20 
chd root 


run wild.wild¢ pathlist, root ) 
20 on error 


endif 
else 
run wild_wild¢ pathlist+**, “” > 
endif 
end 
data “7r0*, ~7d0”, ““7ndO”, “7nd1”, ~7mdO”, “/“md1” 
data ** 
end 


PROCEDURE wi|d_separate 


base 0 
param pathlist (256): byte 
dim i: integer 
for i = 1 to 255 ¥ Ok because pathlist(O) = ’7? if root *) 
exitif pathlist (i) = $FF then 
endexit: 
if pathlist¢i) = $2F then 
pathlist¢i) = $20 
endif 
next i 
end 


PROCEDURE wi!ld_iswild 

base 0 

param file(256): bytes wild: boolean 
dim i: integer 
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wild = FALSE 
for i = 0 to 255 
exitif fileci) = $FF then 
endex it 
exitif file (ido =$2A or file¢i)=$3F or file ¢i)=$5B or file¢i.=$5E then 
wild = TRUE 
endexit 
next i 


end 


PROCEDURE wild_wild 

base 0 

param pathlist, before: string{256] 

dim pattern,position: stringl[256]; file: string[32]; path: byte; match: boolean 


if pathlist = then 
print before 
end 


endif 


run getarg( pathlist, pattern ) 
open #path, “~.°: dirtread 
get #path, file 
get #path, file 
while not eof <#path) do 
get #path, file 
if asc(file) <> O then 
run wild-shapename( file ) 
run wild_match¢ file, pattern, 0, 0, match ) 
if match then 
if before = “” then 
position = file 
else 
position = before + “/”” + file 
endif 
if pathlist = “" then 
print position 
else 
On error goto 10 
chd file 
run wild-wild¢ pathlist+**, position+”” ) 
Chd a5" 
10 On error 
endif 
endif 
endif 
endwhi le 
close #path 
end 


PROCEDURE wi |d_shapename 
base 0 

param file(32): byte 

dim it integer 


for i = 0 to 28 
if fileci) > $7F then 
fileci) = land¢ fileci), $7F ) 
fileci+1) = $FF 
end 
endif 
next i 
file(29) = $FF 
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Seo f.. tad 


wild DHE LT. TRAMEF A UA LU HDPORLUYSF IVY RCHS 
find (7) ¥T~ 

find ILHBSF 4 V7 EVADE PORP LUA bY illo T, TAL EA-KE 
BOT TAME CHELE ZT TANVERLEF, RE LHETS7 TF 4 SKID 
AYVARCH ITS HI’ /WESA TIS) ZN ERA, 

CBERRIOT 4 U7 bY HELE, DEY PALTRY wow 
DET PMT 4 V7 bY OPE’ — 1 KWOKICF AV hHVZERORIOS 
Fo KRMMILRSTS7T AVE LOROU RIA CRT LETD, Hops 
TOHOWDSUe<S TOEMERRISLOIATY avotlEt. chara’ 
Cts 


OS9 : find ~—r=/d0/usr *.c 


ES HIL/d0/usr FH 4 V7 HYD FOAGCNRTOT TA VERRL, COV—-R27 
TANMBLITCH RID DRERCEDANAY ZA ESERRULTRI LEFT, 


-0S9! find -r=/d0/usr —a #.c 


EFSL, COV-ATTANMETNTHERLEF, 

RRROEP CONS yar Phbe< CHOP ORD OILED, ¥ 
RDO SEP oRBOELI-TCHL <, HM RREFRT LES. 

YVARERTRANMO LDS LNECAM Po TSC Le wild LIELA LA 
Leth 

BED OPS T ON VERDE FIC RoTAELE, GLOVAL 
EMj MICHA SH extern b5 MAKEN, APY av’—-wWnIST 
all BLU — r =D CHS root HOMHICANTH) EF, done lLPERDM 
SURRPEDRPDTITCH. BLL - VAY ar PRPoRBSlL7 7A 
@ LOMO CHT LEWHIEE ELAR, HHORHCKTLTOK 
PUR EW) BRE ELMO —-F VICE CEL TPS LUNI T CREA, 
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find_find 2 "FOU L2U—-F v |Z 2M done Mf ® LT GRP & HIT SPL 
5 p> Hr LES. 

HEE COP AVA bY lc Sawld extern. plist HEZTOAYFY7ANT 
HLEF, Child wild DYALTICLEB, VPyF TSZ7ITANBZEMAT S 
BRIS, PSAYVARELTHHNTFSRODLDNTT, 

FOR AZ bVICHSMES, plist LTOP4VZA bYBeMIMARETE 
MNFAVAPVICCHDL, 1&1 OMS UT find_find EV¥OMLET, Ito T 
kRGECHD *.."CHENDVAVIELEDES, COMET FZ done #®TRUE 
Roe boIFFTCCLOBNOP DTH) PO’- aAVOHEMBPoREWICL 
BAC THERE YAAUESS 

ERROR A UTA bVICBSRICISZI-—bFYT (ON ERROR GO 
TOM) EHUTBR, NHS ya VL RBADERORBREDF {V7 bY 
EMT SEIICLTTHIET, 

WI-—YeyF YT SHI dH & ee match_match & PALES. find & # 
AR DRAROICT OY Y +» %*% find_match M £ 4 lc find_D PEs & Ht T 
Feta, 


FAFFLAB 
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PROCEDURE f ind_main 

base 0 

type GLOVAL = pattern, root, plist (13): 
param argument: string{256] 


dim extern: GLOVAL$ arg: string{256]; opterr: boolean 
extern.all = FALSE 
FALSE 


extern.done = 
extern.root = 
extern.pattern = 
run find_option¢( extern, 
if opterr then 
print #2, 
end 
endif 
loop 
run getarg( argument, arg > 
exitif arg = ~*~ then 
endexit 
if asc (arg) 
extern.pattern = 
if extern.root <> 
chd extern.root 
endif 
run find_find¢ extern, 
endif 
end!oop 
end 


argument+””, opterr ) 


“usage: find <-r=start_directory> <-a> pattern.” 


<> $2D then 
ars 


(kK 7-7 &) 


then 


0) 


PROCEDURE f ind_option 
base 0 
type GLOVAL = pattern, root, plist (13): string(32]5 all, 
param extern: GLOVAL; argument: string(256]; opterr: boolean 
dim arg: string(256]; n: integer 
opterr = FALSE 
loop 
run getarg( argument, arg ) 
exitif arg =~” then 
endexit 
if arg = “-a” or arg = ~-A” then 
extern.all = TRUE 
else if left$( arg, 3) = 
extern.root = right$( arg, 
else 
if asc(arg) = 
opterr = 
endif 
endif ¥ endif 
end|oop 
end 


"ope" 


then 
len (arg) -3 > 


$2D then 
TRUE 


PROCEDURE find find 
base 0 
type GLOVAL = 


param extern: GLOVAL; n: integer 
dim path: bytes dr(32): bytes match: boolean 
open #path, ~.”: dirtread 


get #path, dr 
get #path, dr 
while not eof ¢ #path ) do 
get #path, dr 
if dr«) <> O then 
run find-shapename( dr, extern.plist (n) ) ner 


run find.match ( extern.plist (nm), extern.pattern, 

if match then 
if extern.root <> 
print extern.roots 


then 
ets 


string(32]; all, done: boolean 


done: boolean 


pattern, root, plist (13): string{32]3; all, done: boolean 


match ) 
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endif 
for i = 0 to n-1 

print extern.plist (ids 7775 
next i 


print extern.plist (n 
if not extern.all then 
extern.done = TRUE 
end 
endif 
endif 
on error goto 10 
chd extern.plist (n) 
run find_find¢ extern, n+1 > 


chd *..” 
exitif extern.done then 
end 
endexit 
10 On error 
endif 
endwhi le 
close #path 


end 


PROCEDURE f ind_shapename 
base 0 

param dr (32): byte 

param name (32): byte 


dim i: integer 
for i = 0 to 28 
exitif dr¢i) > $7F then 
name (i) = land¢ dr¢i), $7F > 
name (it1) = $FF 
endexit 
name ¢i) = dri) 
next i 
end 


PROCEDURE f ind_match 

base 0 

param file (32): bytes pat (256): byte 
param s, p? integer 

param match: boolean 

dim Cs cl, C2: integer 


while file(s) <> $FF and pat (p) <> $FF do 
match = TRUE 
C = pat(p) ¥ p=pt i 


if c = $2A then oe Se) 
if pat(p) = $FF then (kK only *X’* xX) 
end 
else 


while file<s) <> $FF do 
run find_match< file, pat, stO, p+0, match ) 


s=stil 
if match then 
end 
endif 
endwhi le 
match = FALSE 
endif 
else if c = $5B then OF °C? &) 
run find_brakette( pat, p, file(s)+0, match ) 
else if c = $5E then OR ON RD 
match = file(s) <> pat (p) 
Pep Fe 4 
else if c = $3F then (kK 72? Xx) 
(& already match *) 
else 


run find.toalower( c, cl ) 
run find_toalower( file(s)+0, c2 > 
match = (cl = c2 ) 


FAFF LG 


endif ¥ endif ¥ endif ¥ endif 
if not match then 


end 
endif 
s=s+l 
endwhi le 


if file(s) = $FF and pat (p) = $FF then 
match = TRUE 
else 
match = FALSE 
endif 
end 


PROCEDURE f ind_brakette 
base 0 

param pat (256): byte 
param p, Cc: integer 
param match: boolean 
dim found: boolean 

dim cl, c2: integer 


run find_toalower( c+0, c ) 


if pat(p) = $5E then (eee) 
match = FALSE 
P= pe 1 
else 
match = TRUE 
endif 
found = FALSE 
while pat (p) <> $FF and pat (p) <> $5D do Ok 7" &) 


if pat(p+1) = $2D and pat (p+2) <> $FF and pat (pt2) <> $5D then 
run find toalower¢ pat (p)+0, cl ) 
run find_toalower( pat (p+2)+0, c2 > 
if Cc >= cl and c <= c2 then 


found = TRUE 
endif 
p = pet 2 


else 
run find_toalower< pat (p)+0, cl ) 
if c = cl then 


found = TRUE 
endif 
endif 
P= part 
endwh ile 
if pat(p) <> $FF then 
p=p?il 
endif 


match = not (¢ match xor found ) 
end 


PROCEDURE f ind_toalower 
param cl, C2? integer 


if cl >= $41 and cl <= $5A then 
c2 = cl + $20 
else 
c2 = cl 
endif 
end 
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3—2—8 smem 


CAPAT IAL, FrAMPOHE SM? 1 6HEP-—F FEHOUTEODI? 
AMBOAP EVAR HATSIDCS, HOWSAF— Fld, 1 Gite 2 HID MPH 
AN-ACKY > THN CHELEDT, PIZIZ, "AB" Hoitewet wld, 


smem 41 42 
eA "“B" @AASCII2I—F (1 6 if) 


CLEFT. Mod, 

smem 41 42 < (774"%#) 
EMA, BPA, 

list (7Fr4v%) ! smem 41 42 


ENA PEMA LEF. 


FOAFFADAA 

EF, ROR P—F 1 6MEDMBA LEDS EMIT LET, KPA 
#K pattern (c16tEP— 7 BA THZNT, CN* getarglekotT2HCeICK 
WO. EDT AX-A-FORFICHL, SHY#TLOONFLS (patchr, KS 
length) CLES. Mic, FrANMORD 6 1L7S4 PO, patchr DHHMO KX 
FE RIT SETRAAAET, —hLRG, (length—-1) MFeHALA, Bd 
tt THE length OXF Hl (match) ICfLALEF, UT, match & patchr * It 
WEL, RLS EOKEAMD HHI FUL AERRLCKOMED 5 hil 
BISA -FLETF. BLL EINE, KO 1784 b BH AIAA, KES match 
Di ARIZ OIF, HID 1-4 EMI NDEVL&EOeH LW match & LT, pat- 
chr © M hie RO IKL EF. 

BEB adr (Stale match MHYAT FUARSLTHESF, HoPoRe AIS, 
adr #1 6#ECHHLES. (prthex), 
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PROCEDURE smem 

param argument: string(256] 

dim i, j, length, adr, dif: integer 
dim dat, c: stringl1] 

dim patchr, match: string{100] 

dim dread: string{2] 

dim pat: byte 


On error goto 100 

patchr = ~~ 

match = ~~ 

i= 

loop 
run getarg( argument, dread ) 
exitif dread="* then 
endexit 


patchr = patchr+chrs (val (“$*+dread).) 
ies | 


end|oop 
lenath = i - 1 
print patchr 
print 
adr = 0 
loop 
loop 
get #0, dat 
exitif dat = left$(patchr,1) then 
endexit 
adr = adr + 1 
end! oop 
match = ~~ 
for i = 1 to length-1 
get #0, Cc 
match = match + c 
next i 
match = dat + match 
loop 


exitif match = patchr then 
run prthex( adr > 
adr = adr + length 
endex it 
get #0, c 
match = right$ (match, length-1) +c 
adr = adr + 1 
end! oop 
end|oop 
end 


100 
if err = 211 then 
print “end of file” 
else 
error err 
endif 
end 


PROCEDURE prthex 

param adr: integer 

dim hex (6) + stringl1] 
dim i (6), temp: integer 
dim str: string(6] 


Jjuaes 

temp = adr 

repeat 
i(j) = temp-int (temp716) x16 
temp = int (temp716) 
Oe Ueral 

until temp = 0 

str = ** 


fork =j+1to6 
if i(k) < 10 then 
hex (k) = chr$ ($30+ i (k)) 
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else 
hex (kK) = chr (55+ i (k)) 
endif 
str = str + hex (k) 
next k 
print 
print “address = “3 right$¢ “+#str, 6) 
end 
3-2-9 ‘fink 


FHoBAS CHOY YA-TeTFIAcCK, 

Y-AlILF-BASICICROT. TREHADO—-MMNEZBASICDLODE 
HIFTOSLEMIAMHETT, COTFATFAIE, F—BAS I CS BasiclI9X~M 
PAS FADE RBIST SROIZEY FL. 

F—BAS 1C CITES UTI AD—BCHZLEFSZATHIARD, HT 
Mr FYOEIT PA MICA THO TROMAR DES LVRS LMM IZ 
MEL <, FOP PAOBMILIZEALARARECHT, VP-Y LEG LEFSZDRBE 
NENDFASILOWTEGORMLEVEFITEREHDOLUINIEZE EEL 
L.GOSUBLE CHAT FA NAP AUP FAIRIES EFSZICIPIFIAN 
HAMZBYECH, 

flink (S47 U7 FIAT TANOPESOMITRZ BTOEF, ER. GOSU 
BORUHE LT. TBS CIES TTANARIECASESICL TAN EF, 
MRUEECLTCA TANABE LRYRIZ, ZOTTANOBLAAEKBOR 
CHE LCi 4ST SIMA ZEST, 

PIZISKOD 5S OD7TTANBHSLELEF, 





OS9:11st main 

100 °*x* 

110 **x*kk sample for *flink’ xx*x«xk 
120 °x* 


40 ?~--~-----~~-------------------------- 
150 WHILE 1 
160 A$=INKEYS 


170 IF A$="1~ THEN GOSUB “left”: GOTO 230 
180 IF A$="2° THEN GOSUB “down”: GOTO 230 
190 IF A$="3° THEN GOSUB “right”: GOTO 230 
200 IF A$="5° THEN GOSUB “up”: GOTO 230 
210 IF A$="9~ THEN 240 


220 IF RND > 0.5 THEN PRINT “X73 CHR¢(&h1D) 3 ELSE PRINT “83 CHR$(&h1D) ; 
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230 WEND 

240 '------------------------~------------ 
| 250 END 

260 ° 


OS9: list right 
100 **k move right *x* 
q 110 PRINT CHR (&H1C) 5 
120 RETURN 
130. * 


OSS: list left 
100 **k move left xx 
110 PRINT CHR$ (&H1D) 5 


120 RETURN 
130:,* 
OS9: list up 


100 **xX move up X*x 
110 PRINT CHR$ (&H1E) 5 
120 RETURN 

130 ° 


OS9:list down 

100 **xk move down *x 
110 PRINT CHR$ (&HIF) § 
120 RETURN 

180) * 








CHEV YIATFSRHIIER, LA VERA TAN R—-OHELET, Cf 
AYE test CF, flink +H) LET, 


OS9 : flink main 


cre koT main NCBMSNTHIAT TANS AMMICMNAA, DLED 
FRANMADHCBHLTIAT TA UVAHAMIMYIAA, EWF5 BS IC IVIC 
MEL LES, MBMNITITKO EG RIROPAUFIALLTHHSHET, 





1000 *x* 

1010 *xxk*kk sample for *flink’? **x«Kx 

1020 "x 

1030 CLS 

1Q4Q Be crime ax orion mm mace mm mice em re cam a oe 

1050 WHILE 1 

1060 AG=INKEYS 

1070 IF A$="1~ THEN GOSUB 1170: GOTO 1130 
1080 IF A$="2” THEN GOSUB 1210: GOTO 1130 
1090 IF A$="3" THEN GOSUB 1250: GOTO 1130 
1100 IF A$="5~ THEN GOSUB 1290: GOTO 1130 
1110 IF A¢="9" THEN 1140 

1120 IF RND > 0.5 THEN PRINT “**3 CHR (&h1D) 3; ELSE PRINT “83 CHR# (&h1D) 5 
1130 WEND 

1940: Pomc s sre sata ss Hie Rae e ed See tem See 

1150 END 

1160 * 


1170 ***k move left *x 
1180 PRINT CHR (&H1D) 5 
1190 RETURN 

1200 ’ 

1210 **k move down *x 
1220 PRINT CHR¢ (&HIF) 5 
1230 RETURN 
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eae i 

**k move right *x 
1380 PRINT CHR$ (&H1C) 3 
1270 RETURN 
1280 
1290 **k move up *x* 
1300 PRINT CHR$ (&HI1E) 5 
1310 RETURN 





bL2 fim bebe 7 7 4 VOSS ela, LORUGAV-YSNT 
CBM CLICHV ET, 
—IWGOSUBRIFKK7 TA NOBMEBTCLICL THD ETH, VAEOD 
flink_passl'?}” 


if word=”GOSUB” then 


if word=”GOSUB” or word=”GOTO” or word=”THEN” 
or word=”ELSE” then 


eETHMIFGOSUBUMICE 774A VAOHED HABIT EO ES, 

7% B flink (AV ROTFAMDNReR VTE Faoyv7LHHA. RETURNY 
ENDRBHASMEGDEMNECKADCTATAIVAUWNWCF cv7LTHStsa, 
#7: flink (ESCHES SOROS CLEIZLEVATLZ, Malic, GOTOPGOSU 

DAROTES ERNLI TV a — b CHENRTTANRICOMTRUBA 
MAZE, LEZEN GE DHoRELTEMALEA, 

SC, flink (EOMEEPACKL TILE) VNLI-PRELTHATTF SS 
EBCH ECA, wild OFS TI CLRMU-ANBERMEZATSZEP OIA 
yDBA-N-7A-LTLEIDCT, 4 flink_main FHMT ZOE 5 P— 
JIN PHA REKISCIEMCRET, 


OS9:runb #8k flink_main( ”test” ) 
LAEL, CHCA SE OICHRIS CV OC, BO RIACH#ITZ module. a & 


LFHLLELE3. 
178 3M chbe, BHF SF-7TYVTOVA AEG-EFHL GIRLS 

















FOF LB 173 


To BUY ASIZANSADIEN-—VMLOHCT HD OMIEZ OO EIICLTPFA 
a. POPICTIS8 KBOF-SULVYVPEHRLETHREF, F-FLEVP RHE 
BMY RONCHI, VC OCHA AHAIC BARAT PSY, 





00077 * 

00078 * U reg. means parameter address 

00079 x Y reg. means parameter size 

00080 * 

00081 OO4F 308DFFCD leax Runb,pcr name of Runb 
00082 0053 8611 Ida #Prarm+Objct 

00083 0055 C620 Idb #32 data size #8K 
00084 0057 103F03 osg F$Fork 

00085 005A 2506 bes exit 

00086 OO5C 103F04 os3 FeWait 

00087 OOSF 2501 bes exit 

00088 0061 5F cirb 

00089 0062 103F06 exit osS -FSExit 

000380 





& TflinkIQlat Py ave LTRKAYOMKEHWGELZA. "-s="C, MATS 
YAROTPRSOAY— bee LES. KR”-d="C. TRS OM MAS 
HELEF. CHODF 7 + MHIL1 00 0H 1 OWALBo THETA, 
flink_option Mit) fi & SMITH 7 av bE EMET. 





PROCEDURE fink main 





























base 0 

x *) 

x usage: flink <opt> file <opt>. *) 

0k Opt: -s=1000 start line number *) 

x -d=10 step *) 

cK x) 

param argument: string[256] 

type GLOVAL = name (32): stringl16]3s !in(32), stt(32): integers fdp: integer 


dim extern: GLOVAL; |In(500), Ip: integers buf (512): bytes bp: integer 
dim f$: stringl16]3; opath: byte 

dim start, stp: integer 

dim arg: string(256] 

dim opterr: boolean 


run flink_option( extern, argument+”~”, start, Stp, opterr ) 
if opterr then 

run flink_usage 

end 
endif 


extern.name(O) = ** 


loop 
run getarg( argument, arg ) 
exitif arg = “~~ then 
endexit 


exitif asc¢ arg ) <> $2d then 
extern.name (0) = arg 


endexit 
end|oop 
if extern.name(O) = ~” then 


run flink_usage 
end 
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endif 


bp = 0 
extern.fdp = 1 
run flink pass! ( extern.name (0), extern.|in(O), extern, buf, bp ) 


for i = 0 to extern.fdp-1 

extern.stt (i) = start 

start = start + stp * extern. lini) 
next i 


for i = 0 to extern. fdp-1 
run flink_pass2 (extern.name (i), extern.stt (i), Stp, buf, bp, In, Ip) 
run flink_pass3 (extern.stt (i) ,stp,extern,extern.name (i) ,buf,bp,in,!p) 
next i 
end 


PROCEDURE flink option 

base 0 

type GLOVAL = name (32): stringl16]3 lin(32), stt<32): integer: fdp: integer 
param extern:GLOVAL; argument:string(256]13 start, stp:integer; opterr:boolean 
dim arg: string{256] 


opterr = FALSE 
start = 1000 
stp = 10 
loop 
run getarg( argument, arg 
exitif arg = ~* then 
endexit 
if asc( arg ) = $2d then 
if left¢$( arg, 3) = “-s=" then 
start = val ( right$( arg, len(arg)-3) > 
else if left$( arg, 3) = then 
stp = val( right$( arg, len(arg)-3) ) 
else 
opterr = TRUE 
end 
endif ¥ endif 
endif 
end! oop 
end 





PROCEDURE f | ink_usage 


print #2, “usage: flink <opt> file <opt>.” 
print #2, ~ opt: -s=1000 start line number.” 
print #2, * -d=10 step.” 

end 


PROCEDURE f 1 ink_pass1 

base 0 

type GLOVAL = name (32): stringl16]i; lin(32), stt (32): integers fdp: integer 
param f$: string(16]; In: integers extern: GLOVAL; buf (512): bytes bp: integer 
dim path: byte; word: string(200]; tp: stringl1]3 n: integers exist: boolean 
dim errnum: integer 


on error goto 10 
open #path, f$: read 


on error 

In =0 

loop 
run flink-getword( path, word, tp, buf, bp ) 
exitif tp = chr$($ff>) then Ok eof *) 
endex it 
while tp = ~ ~ do 

run flink_getword(¢ path, word, tp, buf, bp ) 

endwh i le 
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exitif tp <> “0” then 
print #2, “line number not exist ! line “3 Ins ~ in “3 f$% 
endexit 
loop : 
run flink-getword( path, word, tp, buf, bp ) 
exitif tp = chr$(13) then 
In=In+¢+1 
endexit 
if tp = “A” then 
run flink_ upper ( word >) 
if word = “GOSUB” then 
repeat 
run flink-getword( path, word, tp, buf, bp > 
Unt tptsa er? 
if tp = chr$($22) then 
run flink_fdsearch¢ extern, word, n ) 
if n = -1 then 
n = extern.fdp 
extern.name(n) = word 
extern.fdp = extern.fdp + 1 
run flink_pass1 ¢ word,extern.lin(n) ,extern,buf,bp > 
endif 
endif 
endif 
endif 
end|oop 
end!oop 
close #path 
end 


on error 
errnum = err 
if errnum = 216 then 
print #2, “can’t open “3; f$3 “. in pass!.” 
endif 
error errnum 
end 


PROCEDURE f | ink_pass2 

base 0 

param f#: stringl16]; start, stp: integers buf (512)5 bp: integer 
param |n(500), Ip: integer 

dim path: bytes word: string({200]; tp: stringli}s; c: integer 

dim errnum: integer 


on error goto 10 
open #path, f$: read 
on error 


Ip = 0 
loop 
run flink-getword(¢ path, word, tp, buf, bp ) 
exitif tp = chr$($ff> then 
endexit 
In¢lp) = val word) ¥ Ip = Ip + 1 
repeat 
run flink_fgetc( path, c, buf, bp ) 
until c = $0d 
end! oop 
close #path 
end 


10 
on error 
errnum = err 
if errnum = 216 then 
print #2, “can’t open ~3 f$3 “. in pass2.” 
endif 


error errnum 
end 
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PROCEDURE f1link_pass3 

base 0 

type GLOVAL = name (32): stringl16]s 1in(32), stt (32): integers fdp: 
param Start, stp: integer 

param extern: GLOVALs f$: string{16]; buf (612): bytes bp: integer 
param 1n(500), Ip: integer 

dim path: bytes word: string{200]; tp: string(1) 

dim |, n, i integers; exist: boolean 

dim errnum: integer 


On error goto 10 
Open #path, f$: read 
on error 


1=0 
loop 
run flink_getword( path, word, tp, buf, bp ) 
exitif tp = chre (ff) then 
endexit 
if tp =~ ~ then 
print word; 
Pun flink_getword( path, word, tp, buf, bp ) 
endif 
print start + | x stp; 
loop 
run flink_getword( path, word, tp, buf, bp ) 
exitif tp = chr$ 13) then 
print 
l= |) 4 
endexit 
if tp = chr$($22) then 
print chr$($22)% words chr¢ ($22) ; 
else if tp <> “A” then 
print word; 
else 
print word; 
run flink_upper ( word ) 


integer 


while word=“GOTO”~or word="GOSUB*or word="THEN*or word="ELSE*do 


run flink_getword( path, word, tp, buf, bp ) 


if tp =~ * then 

print word; 

run flink_getword( path, word, tp, buf, bp ) 
endif 
exitif tp = “0° then 


n = val (¢ word ) 
exist = false 
for i = 0 to Ip-1 
exitif Indi) = n then 
exist = true 
endex it 
next i 
if exist then 
print start + i * stp; 
else 
print #2, “undefined line number |! 
print word; 
endif 
endexit 
exitif tp = chr$ ($22) then 
run flink_fdsearch( extern, word, n ) 


if n = -1 then (kK not exist *) 
print chr$ ($22) 3 words chr$ ($22) 3 
else 
print extern.stt (n) 3 
endif 
endexit 


exitif tp <> “A” then 
print word; 
endexit 
print words 
run flink upper ( word ) 
endwhile 
endif ¥ endif 
end|oop 
exitif tp = chr$ ff) then 
endexit 


end! oop 
close #path 
end 


10 
on error 
errnum = err 
if errnum = 216 then 
print #2, “can’t open “3 f$%3 ~. 
endif 
error errnum 
end 


in pass3.* 


PROCEDURE fl ink_fdsearch 
base 0 


type GLOVAL = name (32): stringl16]3; lin(32), stt (32): 


param extern: GLOVAL; word: string{20013 n: integer 
dim i: integer 
n=-l 
for i = 0 to extern.fdp-1 
exitif extern.name(i) = word then 
n=i 
endexit 
next i 
end 


PROCEDURE f1ink_getword 

base 0 

param path: byte; word: string{200]; 
param buf (512): bytes bp: integer 
dim c: integer 


tp? string(t] 


FAAS LG 177 


integers fdp: integer 


run flink_fgetc(¢ path, Cc, buf, bp ) 
loop 
exitif c = -1 then x eof *) 
tp = chr$ ($ff) 
word = ~* 
endexit 
exitif c = $20 then 
tps 
word = chr$(c) 
loop 
run flink_fgetc( path, c, buf, bp ) 
exitif c <> $20 then 
run flink_putbak( c, buf, bp ) 
endexit 
word = word + chr$<(c) 
endioop 
endexit 
exitif c >= $30 and c <= $39 then 
tp = “0” 
word = chr$(c) 
loop ' 
run flink_fgetc( path, C, buf, bp ) 
exitif.c < $30 or c > $39 then 
run flink_putbak( c, buf, bp ) 
endexit 
word = word + chr$<(c) 
end | oop 
endexit 
“exitif ¢ >= $41 and c <= $5a or c >= $61 and c <= $7a then 
tp = “A” 
word = chr$(c) 
loop 
run flink_fgetc( path, Cc, buf, bp ) 
exitif ¢c < $41 or c > $5a) and ¢ c < $61 or c > $7a) then 
run flink-putbak( c, buf, bp > 
endexit 
word = word + chr$ (c) 
end! oop 


endexit 
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exitif c = $22 then 
tp = chr$¢(c) 
word = “* 
loop 
run flink.fgetc( path, Cc, buf, bp ) 
exitif c = $0d then 
run flink_putbak( c, buf, bp ) 


endexit 

exitif c = $22 then 

endexit 

word = word + chr$(c) 
end| oop 


endexit 
exitif true then 
tp = chr$(c) 
word = chr$(c) 
endexit 
end!oop 
end 


PROCEDURE f! ink _upper 


base 0 
param word (200): byte 
dim i: integer 
for i = 0 to 199 
exitif word¢(i) = $ff then 
endexit 
if word¢i) >= $61 and word(¢i) <= $7a then 
word(i) = word¢i) - $20 
endif 
next i 
end 


PROCEDURE f | ink _fgetc 

base 0 

param path: byte; c: integer; buf (200): byte; bp: integer 
dim s:? string(1] 

dim errnum: integer 


On error goto 999 


if bp > O then 

bp = bp - 1 ¥ c = buf (bp) 
else 

get #path, Ss ¥ Cc = asc (s) 
endif 
end 


999 
errnum = err 
if errnum = 211 then (kx eof *) 
a | 
else 
error errnum 
endif 
end 


PROCEDURE f | ink putbak 


base 0 f 
param c: integer; buf (200): bytes bp: integer 


buf (bp) = c ¥ bp = bp + 1 
end 
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35:2: O.ne-bprep 


bprep (t flink OP CHUA L TiavePROCEDURE Ch 3 getword ® }\a 
te, OC MBA YU Park t CH, HDL OA 2 VOBMEL DHE SDT 
WEtA. Ciclo C #’ ChE S17 % bprep (CAT SHALAGLET, 


# include 7 7 4 V% 
(a4, COPFOMEC. HELAIrTAVERODMAET. 
# define X*F¥) 1 XA 2 


lk, CRUPOMC, MRM 1 SLM 2 ICR LET, 

bprep (cld Basic09# Hie A << FEW MMPS, EDHLAPAD MBE 
BRHETEITH Ot TAHELZ. REL. HUED LE CAGBAT SOD define (i++ — b 
LTREtA, 





PROCEDURE bprep_main 
OK 


*) 
(k usage: bprep file. *) 
kK *) 


base 0 

param file: string(256) 

dim beffor (200), after (200): string{[32]; p: integer 
dim word: stringl200] 


p=0 
run prep( file, beffor, after, p, word ) 


end 


PROCEDURE bprep_prep 

base 0 

param file: string 

param beffor (200), after (200): string(32]; p: integer 
param word: string{200] 

dim buffer (100): bytes bp: integer 

dim tp: stringl1] 

dim path: byte 


open #path,file:read 
bp=0 


loop 
run bprep_getword( path, word, tp, buffer, bp ) 
exitif tp = chr$($ff>) then 
endexit 


repeat 
exitif tp = chr¢($0d) then 
print word; 
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endexit 
exitif word <> “#* then 
if tp = chr$($22) then 
print tps word; tp; 
else 
run bprep_trans( word, beffor, after, p ) 
print word; 
endif 
repeat 
run bprep_getword( path, word, tp, buffer, bp ) 
if tp = chr$($22) then 
print tps word; tp; 
else 
run bprep_trans( word, beffor, after, p ) 
print word; 
endif 
until tp=chr$ ($0d) 
endexit 
run bprep_getword( path, word, tp, buffer, bp ) 
run bprep_upper (¢ word ) 
exitif word = “difine” then 
run bprep_getword( patn, word, tp, buffer, bp ) 
be te <> ~ ~ then: 
print #2, “error !* 
endif 
run bprep_getword( path, beffor(p), tp, buffer, bp ) 
run bprep_getword( path, word, tp, buffer, bp > 
lf-te <> ~ ~ then 
print #2, “error |” 


endif A 
run bprep_getword( path, after(p), tp, buffer, bp ) 
p=p+t+i1 

endex it 

exitif word = “include” then 


run bprep_getword( path, word, tp, buffer, bp ) 
tf te <>“ * then 
print #2, “error !* 
endif 
run bprep_getword( path, word, tp, buffer, bp ) 
if tp = chr¢$($22) then 
rem run bprep_getword( path, word, tp, buffer, bp ) 
endif 
file = word 
run bprep_prep( file, beffor, after, p, word ) 
endexit 
repeat 
run bprep_getword( path, word, tp, buffer, bp ) 
until tp = chr$($0d) or tp = chr$ ($ff) 
until true 
end|oop 
end 


PROCEDURE bprep_trans 

base 0 

param word: string[200] 

param beffor (200), after (200): string[32]; p: integer 
dim i: integer 


for i = 0 to p-i 
exitif beffor¢i) = word then 
word = after (i) 
endexit 
next i 
end 
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Sea tee ee aes 








3—3— I~ gcursor 


FMY)—-AUF AT 4A Y7EYTCPUAHYLTHY, MMe IVeY ES 
OTE CHEB MMIC 7 I 7 4 9 PRHEBCK ET, FMY )-ZDOS—9 
THEE NED) BDW 6 DPA BasilIN-TV-FvEYA-VELTHERS 
MTWESF, LOAM, geursor (LEK R-bSENTHERA, CHIs gcursor 
ERITHLP TY AT AM HBOBRISERRANIIC) HHANTLES EWS 
fEIR ASH SP2H72L BNET, 

CHEAT MIF gcursor 2 AF UT DH AVA SL ES. 

ST geursor DUT AVY PIMA EZ HO TWEET, 


HTD bEIMB PHI 
eel] [xt [es xe fee | = Ye Poe 


ST, gcursor & ATT S}SBRITIEH — VV DWBECT OC, ARICA ey 
Eis TA-VNOAYAT SHALES, CHEDGIMIZCKRARI CH, 





CHLKIS display IVY FCKRTCEEF, PUIZIEFM—7, 8 Cid, 
OS9: display 14 0e 00 04 00 00 0c 02 03 


ELEFE, A-VNAHZETF. (GOC SIV Y—N EKITS TIASY EC 
To) 
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LOPILTOEEC Shell PAOYYrcLTHAMRTT. RRL GTA Y 
Bis IC Ko CHEF, LOMITA FM— 1 1 OBIE CHES RES 


NF, KOLIICLEIMNIES) ERA, 


OS9: display 14 0e 00 05 00 00 0c 00 42 03 


FM—7, 


8 OYE 


FM—1 1084 





S&T, WENDT LE SMEAR ETC ecursor FBeTAELEGS 





00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 


0002 


0000 
0080 
o000D 
0014 


0015 
OO1E 


0000 
0001 
0038 


SEO ORK RK OK 


* 
x gcursor -- graphic cursor 
* 
* usage: RUN gcursor( x, ys x1, Yls «+. xn yn ) 
* 
ifpl 
endc 
LEBEL set 2 
87CD0100 mod Size,Name,Sbrtn+Objct ,ReEnt+1,Entry,Mem 
Mem equ 128 
47437572 Name fcs 7GCursorz 
O1 fcb 1 edition number 
ifeq LEBEL-1 
else y 
140E0500 curon fcb $14,$0e,$05, $00, $00, $0c , $00, $43, $03 
140E0500 curof fcb $14,¢0e,$05, $00, $00, $0c ,$00,$42, $03 
x 
x if your system is lebel-1, please change 


* 


* curon fcb $14,$0e,$04,$00,$00,$0c , $03, $03 
* curof fcb $14,$%0e,$04,$00,$00,$0C,$02,%03 
x 


STDIN 


STDOUT 


ESPAR 


endc 


equ 
equ 
equ 


0 
| 
56 


ee 


00036 
00037 
00038 
00039 
00040 
00041 

00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 

00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 

00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 

00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 

00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 

00092 
00093 
00094 
00095 
00096 
00097 
00098 
000939 
00100 
00101 

00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 
00111 

00112 


0027 
0027 
0029 
002B 
002F 
0031 

0035 
0037 
0038 
003A 
003C 
0040 
0042 
0044 
0048 


004A 
004D 
O004F 
0051 
0053 
0055 
0057 
0059 
005B 
0O5D 
0060 
0061 


0062 
0062 
0063 
0065 


0066 
0066 
0068 
OO6C 
0070 
0072 
0075 


0077 
0077 
0073 
007D 


0081 


0083 
0086 


0088 
0088 
008A 
008D 
OO8F 
0031 


Entry 
33E4 
EC42 
10830002 
2531 
10830016 
222B 
54 
2528 
EC46 
10830002 
2620 
EC4A 
10830002 
2618 


32E8D5 
8028 
1F41 
8D35 
2506 
8D71 
2502 
8D7D 
8D09 
32E82B 
SF 

39 


gcurst 


parerr 
53 
C638 
39 


equ 
leau 
Idd 
cmpd 
blo 
cmpd 
bhi 
Isrb 
bes 
Idd 
cmpd 
bne 
Idd 
cmpd 
bne 


leas 
bsr 
tir 
bsr 
bes 
bsr 
bes 
bsr 
bsr 
leas 
clrb 
rts 


equ 
comb 
\db 
rts 


* 

1S 

2,u 

#2 
parerr 
#22 
parerr 


parerr 
6,u 

#2 
parerr 
10,u 
#2 
parerr 


-43,6 
offcurs 
Sax 
putcom 
gcurs1 
getcom 
gcurs! 
setdat 
oncurs 
43,5 


x 
#ESPAR 
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flame pointer 
get parameter count 


parameters too short 
parameters too many 


parameter number is odd 


keep work area 

cursor off 

buffer address 

put sub-command for gcursor 


get return values 


cursor on 


parameter error 


SAO OOOO OOOO OOOO KK OK KKK 


* 


* cursor on 
x 


Ooncurs 
3436 
308DFF AS 
108E0009 
8601 
103F 8A 
35B6 


equ 
pshs 
leax 
Idy 
\da 
os9 
puls 


* 
dsx.y 


curon,per 


#curof-curon 


#STDOUT 
1$Write 


dsxXs¥spc 


SOOO OOOO OOOO KKK KK 


* 
* cursor off 
x 


offcurs 
3436 
308DFFA1 
108E0009 
8601 
103F 8A 
35B6 


equ 
pshs 
leax 
Idy 
Ida 
osg 
puls 


x 
dixsy 


curof ,per 


#curof-curon 


#STDOUT 
I$Write 


dsx,Y,pc 


SOOO OKOOOOROOOOOOOO KK KOK 


* 
* 
x 
x in X? buffer 
* 
x 
putcom 
3476 
CC140F 
ED84 
EC42 


830002 


U: flame pointer 


equ 
pshs 
Idd 
std 
Idd 
subd 


put gcursor sub-command 


* 
dsxX.ysu 
#$140F 
1X 

2yu 

#2 


get parameter count 
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00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 

00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 

00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
90140 
00141 

00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00161 

00162 
00163 
00164 
00165 
00166 
00167 
00168 
00163 
00170 
00171 

00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 

00182 
00183 
00184 
00185 
00186 
00187 
00188 
00189 





BasicO9NILkSPFAFIA 


0094 
0096 
0097 
0099 
009B 
o0ogsD 
OOSF 
OOAO 
OOA1 
OO0A3 
OOA6 
O00A8 
OOAA 
OOAB 
OOAD 


OOAF 
OOB2 
OOB4 
00B7 


OOB9S 
OOBB 


OOBD 
OOBF 
00c3 
00c6 


0Oocs 
00c8 
OOCA 
OOCcCc 
OOCE 
OOCF 
ooD1 
00D3 
OOD6 


O0OD8 
0OD8 
OODA 
OODC 
OODE 
OODE 
OOEO 
OOE2 
OOE4 
OOE8 
OOEA 
OOEC 
OOEE 
OOF O 
OOF 4 
OOF 6 
OOF8 
OOF A 


ED42 std 2,u 

58 aslb 

CBOo3 addb #3 

E702 stb 2.x return byte count 
C609 Idb #9 

E703 $tb 34x send byte count 
4F clra 

5F cirb 

EDO4 std 4,x 

CC1FO7 Idd #$1FO7 gcursor Sub-command + color 
EDO6 std 64x 

EC42 \dd 2,u 

57 asrb 

ED42 std 2,u 

E708 stb 8.x 

ECD804 idd (4,u] 

EDOS Std “Sax 

ECD808 Idd (8,u] 

EDOB std 114x 

8603 Ida #3 

A70D sta VEX 

8601 Ida #STDOUT 

108EQOOE Idy #14 

103F8A osg I¢Write 

35F6 pulS d,x,Y¥.uUs,pc 


SOOO OOOO OOOO OK AR KKK OK 


* 
x get gcursor sub-command data 
x 
x in X? buffer 
x Uz flame pointer 
x 

getcom equ * 
3476 pshs d,x,y,u 
E602 elb:. -R 29x. 
CBO5 addb #4+1 
1D sex 
1FO2 tfr oo dsy 
8600 tda #STDIN 
103F 89 os9 1$Read 
S5F6 pulsS d,x;sY,uU,pC 


SEO OOOO ORK KK 


* 

* set data 

x 

x in X: buffer 

* U: flame pointer 

* 
setdat equ * 

3476 pshs d,x s,y,u 

3007 leax 4+3,x read index 

314C leay 12,u parameter index 
loop equ x 

EC81 !dd axtt 

EDB1 std Ciyt+] 

ECA1 Idd vyt+ parameter. Size 

10830002 cmpd #2 

2611 bne seterr 

EC81 Idd yxtt 

EDB1 std C,yt+] 

ECA1 Idd vytt 

10830002 cmpd #2 

2605 bne seterr 

6A43 dec 3,u 

26E4 bne loop 

SF cirb 


i .. —e___ SG 
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00190 OOFB 35F6 seterr puls d,x,Y,U,pc 


OOFD ESOOEA 
0100 





3—3-—2 circle 


circle (Z4U@HR< PTV —-F VEL ANC, 
MAHHIEF-BAS I CIC#UTHETF, 


RUN circle ( [82] xy .»% L 277-1, Ibs 
[ Baar [, FN7>7 [, eae] ] ] ] ]) 


NRE GIBY TEMORACEMEZ ES, (LOGBILTATINTEG 
ERE DBRS PALEMTCETMUES ) E+, 
FN7Z7Z7ld, AOPEBVOETREIRPONTITC KOUMECVET. 


Non-Full 


Full (#9 WEF) 





PEREISKRO A bDWTHATST. 









SGC IO OOOO ORO ROOK AIK 


* BasicO9 Circle Procedure 
x 
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00005 
00006 
00007 
00008 
000093 
00010 
00011 

00012 
00013 
00014 
00015 
00016 
00017 
000193 
00020 
00021 

00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 

00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 


00042° 


00043 
00044 
00045 
00046 
00047 
00048 
00043 
00050 
00051 

00052 
00053 
00054 
00055 
00056 
00057 
00058 
00083 
00060 
00061 

00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 

00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 

00082 


BasicOV ICL SFAPIA 


0000 
000D 
003C 


0015 
0013 
0017 
001B 
OO1F 
0023 
0027 
002B 
002F 
0033 
FFC4 
0037 
0037 
0038 
0039 
003A 
003B 
003C 
003D 
FFCB 
003E 
FFCC 
003F 
FFCD 
0040 
FFCF 
0042 
FFD1 
0044 
FFD3 
FFD4 
0046 
0048 
0049 


FFD7 
FFD8 
FFD 
FFDB 
FFDC 
FFDE 
FFEO 
FFE2 
FFE4 
FFES 
FFE 
FFE 
FFEA 
FFF2 
FFFA 
FFFS 


004A 
0044 
004C 
O04F 


* usage: RUN circle ( [path#,] x. ys Fr 
* L,color [,ratio [.begin f,end [.FN C,function J]) 
x 
* FN := O =N 
* 1 fF 
* function:= 0 tpset 
x 1 tpreset 
* 2 :or 
x 3 +and 
x 4 =xor 
x 
ifpl 
endc 
87CDO3EE mod Size.Name,Sbrtn+Objct ,ReEnt+1,Entry,Mem 
43697263 Name fcs 7Circler 
Mem equ 60 
csData equ x+2 INT (COS (axP 1764) *$10000) +1, I 
00000001 fdb 0,$0001 a=0 
FEC51919 fdb $FEC5,$1919 1 
FB1631F2 fdb $FB16,$31F2 2 
F4FB4A51 fdb $F4FB, $4451 3 
EC8461F9 fdb $EC84,¢61FS 4 
£1C778AE fdb $£1C7,$78AE 5 
D4DC8E3B fdb $D4DC,$8E3B 6 
C5E5A269 fdb  $C5E5,¢A269 7 
B506B506 fdb $B506 , $B506 8 
DSL ine equ ~Mem 
L$Data equ * 
14 fob $14 GID 
OE feb $OE subout 
00 fcb $00 return byte count =0 
OE fcb $0E command byte count =$E 
00 feb $00 don’t care 
00 fcb $00 
15 feb $15 ‘line’ command code 
C$Code equ x-L¢$Data-Mem 
07 fcb $07 color code :white 
F¢Code equ x-L¢Data-Mem 
00 fcb $00 function code :pset 
x1 equ x-L$Data-Mem 
0000 fdb $0000 x1 (dummy) 
v1 equ x-L¢Data-Mem 
0000 fdb $0000 yi (dummy) 
X2 equ *-L$Data-Mem 
0000 fdb $0000 x2 (dummy) 
Y¥2 equ x-L¢Data-Mem 
Y2.10 equ Y2+1 
0000 fdb $0000 y2 (dummy) 
00 fcb $00 box flag :straight line 
03 fcb $03 end code 
* 
Pass equ 19-Mem Output pass# 
FNF lag equ 20-Mem F or N flag 
Ratio equ = 21-Mem y7x ratio (x$100) 
O.Pntr equ 23-Mem output pointer 
EndPos equ 24-Mem end position 
Regi equ 26-Mem all-purpose register 
Reg2 equ 28-Mem 
Reg3 equ 30-Mem 
Rea4 equ 32-Mem 
Reg4.10 equ Reg4+1 
Regd equ 34-Mem 
Reg6 equ 36-Mem 
Res7 equ 38-Mem 
Regs equ 46-Mem 
Regg equ 48-Mem 
Reg9.lo equ Reg9+1 
Entry equ * 
33E4 leau Ss copy stack ptr 
32E8C4 leas -Mem,s 


308CE5 leax <L¢Data,pcr 





31C8C4 
C613 
170382 
8601 
A7C8D7 
6FC8D8 
8E0073 
AFC8D9 
C601 


10830002 
2731 
10830001 
10260363 
A6D804 
A7C8D7 
EC42 
830001 
ED42 
C103 
102D0350 
C109 
102E034A 
SF 

3144 
AE24 

AF AI 
AE24 

AF AI 

BC 

E143 
26F3 
EC42 
10830009 
102E0330 
10830003 
102D0328 
* 

4F 

lg 

3406 

* Parameter 
EC46 
10830002 
10260314 
6A43 

x Parameter 
EC4A 
10830002 
1026030E 
6A43 

x Parameter 
EC4E 
10830002 
10260302 
6A43 
102700DD 
* Parameter 
ECC812 
10830002 
102602F 1 
ECD810 
102B02EA 
10830007 
102E02E2 
E7C8CB 
6A43 
102700BA 
* Parameter ratio 
ECC816 
10830005 
102602CE 
10AEC814 





<D$Line.u 
#441441 
Transmit 
#1 
<Pass,u 
<FNF lag, u 
#$0073 
<Ratio,u 
#1 
<O.Pntr.u 


<EndPos,u 
6,u 

#2 

Circl 

#1 
ParamErr 
(4,u] 
<Pass,u 
2,u 

#1 

2.u 

#3 
ParamErr 
#9 
ParamErr 


4,u 
4yy 
oy¥tt 
4.y 
sytt 


3,u 
Circo 
2,u 

#9 
ParamErr 
#3 
ParamErr 


d 


6,u 

#2 
ParamErr 
3,u 


10,u 

#2 
ParamErr 
3,u 


14,u 

#2 
ParamErr 
3,u 
Cire2 


18,u 

#2 
ParamErr 
(16,u) 
ParamErr 
#7 
ParamErr 
<C$Code,u 
3,u 

Circ2 


22,u 

#5 
ParamErr 
20,u 


FIDVI9D 


initial Output pass = 1 


=0.4495x¢$100 initial ratio 


first param byte count 


decrement param count 


slide param info. 


get param count 
check param count 


check integer? 


integer? 


integer? 


integer? 


get color# 
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00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
002093 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 


BasicO9I kB FAA FL 





011B A6G24 Ida 
011D 8501 bita 
O11F 102602C2 Ibne 
0123 A6BA4 \da 
0125 8B08 adda 
0127 AE21 dx 
0129 170296 bsr 
012C AFC8DS Stx 
012F 6A43 dec 
0131 10270091 Ibeq 
* Parameter begin 
0135 ECC81A dd 
0138 10830005 cmpd 
013C 102602A5 bne 
0140 10AEC818 \idy 
0144 ABA4 da 
0146 8B06 adda 
0148 AE21 dx 
014A 170275 Ibsr 
014D 1F10 tir 
O14F C43F andb 
0151 1F98 eile 
0153 C407 andb 
0155 44 sra 
0156 44 tsra 
0157 44 Isra 
0158 EDE4 std 
015A 6A43 dec 
015C 2768 beq 
* Parameter end 
O15E ECC81E Idd 
0161 10830005 cmpd 
0165 1026027C Ibne 
0169 10AEC8IC Idy 
0160 A6BA4 ida 
O16F 8806 adda. 
0171 AE21 Idx 
0173 17024C Ibsr 
0176 1F10 tifr 
0178 C43F andb 
017A 1F98 tin 
017C C407 andb 
O17E 44 Isra 
O17F 44 Isra 
0180 44 Isra 
0181 EDC8DC std 
0184 6A43 dec 
0186 273E beq 
x Parameter FN 
0188 ECC822 Idd 
018B 10830002 cmpd 
O18F 10260252 Ibne 
0193 ECD820 Idd 
0196 270D beg 
0198 10830001 cmpd 
018C 10260245 Ibne 
O1A0 C6FF Idb 
O1A2 E7C8D8 stb 
O1A5 6A4d3 FNI dec 
O1A7 2710 beq 
* Parameter function 
O1A9 ECC826 Idd 
O1AC 10830002 cmpd 
O1BO0 10260231 Ibne 
01B4 ECD824 Idd 
01B7 102B022A Ibmi 
01BB 10830004 cmpd 
O1BF 102E0222 Ibat 
01C3 E7C8CC stb 
* 
O1C6 Circ2 equ 
01C6 3506 puls 
* 
o1cs Circloop equ 
01C8 3406 pshs 
O1CA AEC8D1 Idx 
61CD AFC8CD Stx 


4.y 

#1 
ParamErr 
1y 

#8 

lay 

Cint 
<Ratio,u 
3,u 
Circ2 


Rat io=int (rat iox$100) 


26,u 

#5 
ParamErr 
24,u 

ry 

#6 

lay 

Cint 

xsd 
#%00111111 
b.a 
#%00000111 


real? 


+S 
3,u 
Circ2 


30,u 

#5 
ParamErr 
28,u 

ry 

#6 

lay 

CInt 


real? 


xd 
#200111111 
b,a 
#%00000111 


<EndPos.u 
3,u 
Cire2 


34,u 

#2 
ParamErr 
(32,u] 
FNi 

#1 
ParamErr 
#$FF 
<FNF lag.u 
3,u 
Cire? 


integer? 


=o 
nZz 


38,u 

#2 
ParamErr 
(36,u] 
ParamErr 
#4 
ParamErr 
<F$Code,u 


integer? 


get function code 


* 
d 
x 
d 


<X2,u 
<Xtsu 


00237 
00238 
00239 
00240 
00241 

00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 

00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
002693 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 

00282 
00283 
00284 
00285 
00286 
00287 
00288 
00283 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 

00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 

00312 
00313 


0100 
0103 
0106 
0108 
O1DA 
01DB 
01DD 
O1DE 
O1DF 
O1E3 
O1E5 
O1E7 
O1EA 
O1EC 
O1EE 
O1FO 
O1F3 
O1FS 
O1F7 
O1FS 
O1FB 
O1FD 
O1FF 
0201 
0204 
0206 
0209 
020C 
O20E 
O20F 
0213 
0216 
0218 
021B 
0210 
O21F 
0221 

0223 
0225 
0228 
022B 
022D 
O22E 
022F 
0231 

0234 
0237 
0239 
023D 
023F 
0242 
0245 
0247 
0249 
024B 
O24E 
0251 

0253 
0256 
0258 
0258 
O25E 
0260 
0264 
0266 
0269 
026C 
O26F 
0271 

0273 
0275 
0278 
027A 
O27E 
0280 
0281 

0283 


AEC8D3 
AFC8CF 
8401 
2703 
50 


318DFE32 


31A5 
3420 
1700A6 
3520 
313E 
3410 
17009D 
3520 
AGES 
8403 
2706 
8103 
2702 
TENS 
AFC8D1 
1F21 
ECC8D9 
170093 
1E20 
40 
10260102 
E7C8D3 
1F20 
A7C8D4 
AGES 
8102 
2510 
8106 
240C 
ECD804 
A3C8D1 
2415 
4F 

SF 
2011 
ECD804 
E3C8D1 
2506 
1083027F 
2503 
CCO27F 
EOC8D1 
AGE4 
8104 
250D 
ECD808 
A3C8D3 
2416 
CCO0000 
2011 
EcD808 
E3C8D3 
2506 
108300C7 
2503 
CCOOC7 
EDC8D3 
60C8DB 
2602 
8D5B 
3506 
64C8DB 
2506 
10A3C8DC 
270C 
5C 
C108 
2604 


Cires 


Circ4 


Cires 


Circé 


Circ? 


Circ8 


Circd 


Circio 


Circii 


Circi2 





Idx 
Stx 
anda 
beq 
negb 
addb 
aslb 
aslb 
leay 
leay 
pshs 
Ibsr 
puls 
leay 
pshs 
Ibsr 
puls 
Ida 
anda 
beq 
cmpa 
beq 
exg 
Stx 
tfr 
Idd 
Ibsr 
exg 
tsta 
Ibne 
stb 
tfr 
sta 
Ida 
cmpa 
blo 
cmpa 
bhs 
Idd 
subd 
bhs 
clra 
cirb 
bra 
!dd 
addd 
bes 
cmpd 
blo 
Idd 
std 
Ida 
cmpa 
blo 
Idd 
subd 
bec 
Idd 
bra 
Idd 
addd 
bes 
cmpd 
blo 
Idd 
std 
tst 
bne 
bsr 
puls 
Isr 
bes 
cmpd 
beq 
incb 
cmpb 
bne 


<¥2,u 
<¥1,u 
#%001 
Circ3 


#8 


CSData,per 


bay 

¥ 
Calc 
y 
-2,y 
x 
Calc 
y 

+S 
#%011 
Circ4 
#2011 
Circ4 
XoY 
<X2,u 
Yox 
<Ratio,u 
Mul 16 
y.d 


ParamErr 
<¥2,u 
y.d 
<¥2.10,u 
18 

#%010 
Circs 
#2110 
CiresS 
(4,u] 
<X2,u 
Circ? 


Circ? 
{4,u] 
<X2,uU 
Circs 
#639 
Circ? 
#639 
<X2,u 
1S 
#%100 
Circs8 
(8,u] 
<Y¥2,u 
Cireto 
#0 
Circio 
(8,u] 
<Y¥2,u 
Circd 
#199 
Circio 
#199 
<¥2,u 
<O.Pntr,u 
Cirets 
S$Line 
a,b 
<O.Pntr,u 
Circi2 
<EndPos,u 
Return 


#%00001000 
Circi3 


PLGA 189 


=se730b1 ts 
bx4--—>b 


get center x positin 


center x 


x Limit 


get center y 


center y 


y limit 
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00314 
00315 
00316 
00317 
00318 
00319 
00320 
00321 

00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 
00340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 

00352 
00353 
00354 
00355 
00356 
00357 
00358 
00359 
00360 
00361 

00362 
00363 
00364 
00365 
00366 
00367 
00368 
00369 
00370 
00371 

00372 
00373 
00374 
00375 
00376 
00377 
00378 
00379 
00380 
00381 

00382 
00383 
00384 
00385 
00386 
00387 
00388 
00389 
00390 


BasicOVITkSTAFIA 


0285 
0286 
0287 
0289 


028C 
028C 
O28E 
O28F 


0290 
0290 
0293 
0295 
0297 
029A 
029C 
O29E 


O29F 
O29F 
O2A1 
O02A3 
O02A5 
O2A7 
O2A8 
O2AA 
O2AC 
O2AD 
O2AF 
02B1 
02B3 
02B5 
02B7 
02B8 
O2BA 
O2BC 
O2BE 
02C0 
02C2 
02C4 
02C5 
02C7 
02C9 
02CB 
02CD 


O2CE 
O2CE 
0201 
02D3 


0206 
02D8 
02DB 
O2DE 
O2E1 
O2E4 
O2E6 
O2E9 
O2EB 
O2EE 
O2F 1 
O2F 4 
O2F7 
O2FA 
O2FD 
0300 
0303 


#%00000111 
Circloop 


cc reset 


* 


(12,u) get radius 

y get Sinvcos data 
Calcl 

#1 

Mul 16 

Vox 


3 d: lower 16 bits 


dummy 


dixsy 
d 


* 
<FNFlag,u 
Lni 

Line 


A) 
#1 

#-1 
<X2.y 
<X1sy 
Ln2 
<Reg3,y 
Ln3 
<Reg3.y 
<X15y 
<X2,y 
#1 
<Regt.y 
<Reg6,y 
<Y¥2,y 
<¥ivy 


4c inca 
SF clpb 
8407 anda 
16FF3C Circl3s Ibra 
* 
* Return to Basic 
x 

Return equ 
32C4 leas 
4F clra 
39 rts 
* 
* X,Yiradiusk((Y)-1)’s upper 16 bits 
* 

Calc equ 
AEDSOC Idx 
ECA4 Idd 
2707 beq 
830001 subd 
8D03 bsr 
1F21 thE 
39 Calci rts 
* 
* DxX--->Y:upper 16 bits 
* 

Mul16 equ 
3410 pshs 
3436 pshs 
6F64 clr 
A663 Ida 
3D mul 
ED66 std 
EC61 Idd 
3D mul 
EB66 addb 
8900 adca 
ED65 std 
E6E4 Idb 
A663 Ida 
3D mul 
E365 addd 
ED65 std 
2402 bhs 
6C64 inc 
AGE4 Mul .1 Ida 
E662 Idb 
3D mul 
E364 addd 
ED64 std 
3536 puls 
3506 puls 
39 rts 
x 
* Draw Line (main) 
x 

S$Line equ 
6DC8D8 tst 
2603 bne 
1600D6 ibra 
* 
31C4 Ln leay 
8E0001 Idx 
CEFFFF idu 
ECA8D1 Idd 
A3A8CD subd 
2B05 bmi 
AFABE2 Stx 
2009 bra 
EFA8E2 Ln2 stu 
ECA8CD Idd 
A3A8D1 subd 
C30001 Ln3 addd 
EDASDE std 
EDA8E8 std 
ECA8D3 'dd 
A3A8CF subd 
2B05 bmi 


Ln4 





00391 

00392 
00393 
00394 
00395 
00396 
00397 
00398 
00399 
00400 
00401 

00402 
00403 
00404 
00405 
00406 
00407 
00408 
00403 
00410 
00411 

00412 
00413 
00414 
00415 
00416 
00417 
00418 
004193 
00420 
00421 

00422 
00423 
00424 
00425 
00426 
00427 
00428 
00429 
00430 
00431 

00432 
00433 
00434 
00435 
00436 
00437 
00438 
00433 
00440 
00441 

00442 
00443 
00444 
00445 
00446 
00447 
00448 
00449 
00450 
00451 

00452 
00453 
00454 
00455 
00456 
00457 
00458 
00459 
00460 
00461 

00462 
00463 
00464 
00465 
00466 
00467 


0305 
0308 
030A 
0300 
0310 
0313 
0316 
0319 
O31A 
0318 
O31E 
0321 
0324 
0327 
032A 
032C 
032F 
0332 
0335 
0338 
033A 
033D 
0340 
0343 
0346 
0349 
034C 
O34E 
0350 
0353 
0355 
0357 
035A 
035D 
0360 
0363 
0366 
0369 
036C 
O36F 
0371 
0374 
0376 
0378 


0379 
0379 
037B 
037D 
0380 
0383 
0385 
0388 
038B 
O38E 
0391 

0394 
0397 
039A 
039D 
O39F 
O3A1 

O3A4 
O3A7 
O3A9 
O3AB 


O3AC 
O3AC 
O3AE 
03B1 
03B5 
03B8 
03BB 
03BD 


AF ASE4 
2009 
EFABE4 
ECA8CF 
A3A8D3 
C30001 
EDASEO 
4F 

SF 
EDAS8E6 
ECA8CD 
EDA8F 2 
ECA8CF 
EDASF4 
8D4D 
ECA8E6 
E3A8E0 
EDA8E6 
ASA8DE 
231B 
EDA8E6 
EGASF5S 
EBA8ES 
E7A8F5 
ECA8E6 
A3A8DE 
2515 
8D29 
ECA8E6 
20E0 
260C 
EDA8SE6 
E6A8F5 
EBA8ES 
E7A8FS 
ECA8F 2 
ESABE2 
EDASF 2 
AEASE8 
301F 
AFASE8 
26B4 
33A4 
39 

* 


33A4 
C608 
30C8CD 
SICBEA 
8D57 
ECD804 
EDC8CD 
ECD808 
EDC8CF 
ECC8F2 
EDC8D1 
ECC8F4 
EDC8D3 
8D0D 
c608 
30C8EA 
31C8CD 
8D33 
3104 
39 

x 


* Draw line (sub) 


x 


3432 
30C8C4 
108E0013 
A6C8D7 
103F 8A 
2502 
3582 


Ln4 


Lnd 


Ln6 


Ln7 


Ln8 


Lng 


Lnio0 


Line 


Stx 
bra 
stu 
Idd 
subd 
addd 
std 
clita 
cirb 
std 
Idd 
std 
Idd 
std 
bsr 
Idd 
addd 
std 
subd 
bis 
std 
I db 
addb 
stb 
Idd 
subd 
blo 
bsr 
Idd 
bra 
bne 
std 
I db 
addb 
stb 
Idd 
addd 
std 
Idx 
leax 
Stx 
bne 
leau 
rts 


equ 
leau 
\db 
leax 
leay 
bsr 
Idd 
std 
Idd 
std 
Idd 
std 
Idd 
std 
bsr 
Idb 
leax 
leay 
bsr 
leay 
rts 


equ 
pshs 
leax 
Idy 
Ida 
os9 
bes 
puls 


<Reg4.y 
Ln5 
<Reg4.y 
<Yisy 
<Y¥2ay 
#1 
<Reg2,y 


<RegS.y 
<X15y 
<Regs8.y 
<Y¥1ay 
<Reg9.y 
Ln1o0 
<ResS.y 
<Reg2,y 
<RegS,y 
<Regl,y 
Ln8 
<Regs.y 
<RegS.losy 
<Reg4.losy 
<Reg9.lo,y 
<RegS.y 
<Regi.y 
Lng 

Lnio 
<Reg5.y 
Ln7 

Lng 
<Reg5.y 
<Reg9. lovy 
<Res4.los.y 
<Reg9.lo.y 
<Regs,y 
<Reg3.y 
<Regs.y 
<Reg6,y 
“14x 
<Reg6,y 
Ln6 

oy 


* 

ry 

#8 
<X1,u 
<Reg7,u 
Transmit 
{4,u] 
<Xtsu 
(8,u] 
<¥1,u 
<Reg8.u 
<X2,u 
<Regd,u 
<¥2,u 
Line 
#8 
<Reg7,u 
<X1,u 
Transmit 
aU 


* 

QsxXoy 
<D$Line,u 
#441441 
<Pass,u 
I¢Write 
1OErr 
€sxX+¥spCc 


FDIOANG 


191 
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00468 
00469 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00478 
004793 
00480 
00481 
00482 
00483 
00484 
00485 
00486 
00487 
00488 
004839 
00490 
00491 
00492 
00493 
00494 
00495 
00496 
00497 
00498 
00499 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00508 
00509 
00510 
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O3BF 32C4 
03C1 39 

* 

* Real--->Integer 

* 
03C2 
03C2 
0304 
03C5 
03C7 
03c9 
03CB 
03CD 
O3CF 
03D1 
0303 
03D5 
03D7 
03D8 
O3DA 


10Err 


Clint 
3412 
4D 
2A06 
6F61 
6F62 
200D 
8010 
2E14 
2707 
6461 
6662 
4c 
26F9 
3592 
* 
x Block Transmissi 
* 
03DC 
O3DC 
030D 
O3DF 
O3E1 
O3E2 
O3E4 


Cintt 


CintLoop 


Cint2 


Transmit 
5A 
A685 
A7A5 
5A 
2CF9 
39 
x 
* Parameter Error 
x 
03E5 
O3E5 
O3E7 
O3E9 
O3EA 


T$loop 


ParamErr 
32C4 
C638 
43 
39 


O3EB 
O3EE 


B4B4C3 
Size 


leas 
rts 


equ 
pshs 
tsta 
bp! 
clr 
cir 
bra 
suba 
bet 
beq 
Isr 
ror 
inca 
bne 
puls 


on 


equ 
decb 
Ida 
sta 
decb 
bge 
rts 


equ 
leas 
Ido 
coma 
rts 


emod 
equ 
end 


return to BasicOS System 


x 
Asx 


Cintl 
15s 

2,8 
Cint2 
#16 
ParamErr 
Cint2 
15s 

2,8 


CIntLoop 
@,xXspc 


b,x 
bay 


T# loop 


ou 
#56 


* 
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3—3—3 sound 


sound (3 F—BASICMSOUNDXICHMTSYT7V-FvYEVaz-VTE 
>, PUHRHXSF-BASICIC#UTHET, 


RUN sound (PSGUY ASRS, 





APRIZ2ZOLSINTEGERPORRERILEMTEWNIEE) EtA. EF 
RUVASREABEUP—J7OKBKRORMIZ, F-BAS 1 COXHBESRL 








TF8&h, 
00001 betes tess ecole ees ees et estes eect toeee se eg 
00002 * 
00003 * BasicO9 Sound Procedure 
00004 x 
00005 * usage: RUN sound( PSG-Register#, Data ) 
00006 x 
00007 
00008 ifpl 
00010 ende 
00011 
00012 0000 87CDOO5SE mod Size,Name,Sbrtn+Objct,ReEnt+1,Entry,Mem 
00013 O00D 536F756E Name fes 7Sound’ 
00014 0020 Mem equ 32 
00015 
00016 FDOD PSG.Reg equ $F DOD PSG Register addr. 
00017 
00018 
00019 0012 Entry equ x 
00020 0012 3364 leau ,s copy stack ptr 
00021 0014 EC42 Idd 2,u parameter check 
00022 0016 10830002 cmpd #2 
00023 O01A 2639 bne Error 
00024 =©6o01C EC46 Idd 6,u 
00025 OO1E 10830002 cmpd #2 
00026 0022 2631 bne Error 
00027 0024 EC4A Idd 10,u 
00028 0026 10830002 cmpd #2 
00029 002A 2629 bne Error 
00030 002C ECD804 Idd (4,u] get first parameter 
00031 OO2F 2B24 bmi Error if minus then error 
00032 0031 10830000 cmpd #13 if >139 then error 
00033 0035 221E bhi Error 
00034 0037 3404 pshs b 
00035 0039 ECD808 Idd (8,u] get second parameter 
00036 = 003C 8100 cmpa #0 if >$FF then error 
00037 = O003E 2615 bne Error 
00038 0040 3502 pulS a 
00038 0042 8EFDOD idx  #PSG.Reg 
00040 0045 A701 sta 14x store reg# 
00041 0047 8603 Ida #3 reg-appointment command 
00042 0049 4784 sta 2X 
00043 004B 6F84 clr +X clear command-reg 
00044 004D E701 stb 14x store data 
00045 O04F 4A deca write command 


00046 0050 A784 sta ox 
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00047 0052 6F84 clr +X clear command-reg 
00048 0054 39 rts 
00049 
00050 0055 C638 Error \db #$38 
00051 0057 43 coma 
00052 0058 32C4 leas ,u 
00053 005A 39 rts 
00054 
00055 
00056 0058 SABSDE emod 
00057 = O05E ize equ * 
00058 end 





oS 3 ="40™ geditéer 


CDP ALF LIK BIER CREMERTZPIUTFIATCT, 
FATS S icld, BasicDIM5O2—-KULTRUNGSH, FRIPACKLTHAUN 
(¥Shell PVY FAIA YPoIVY FELTHHLET, FAL, 


1) Edit 2) Load 3) Save CR) End 


cASa-tRML, ANSHELTK 49, 1RFAALEF., 


ENT BE-FRMBMLETS, 


1) Edit 
SO PICAS L&E, 


1) Connect 2) Box 3) Circle 4) Paint 5) Pset 6) Delete 
7) Clear CR) End 


CRMENETOC, ENENDX-—BANLT KL BSW, 
HA =a -OWFlKO IBY CF, 
@ Connect 
MWe L 7A eH Cc RICH ET, 
EV. TATA YTA-VYNUBHADC, A-VNUH— CHD L THEME 
RO, KICMMEROET, Hic, HeROET, 
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Color 0) Black 1 2 3 4 5 6 7 CR) No change 
LZNAFG—I— FACHA 





ERMENETOC MS SHEANLEFT. CDE SCRE-EANTS 
©, RCM LIC DET. MICE TRO ET, 


0) Pset 1) Preset 2) Or 3) And 4) Xor 
5) Not CR) No change 


LEV ETOCMRICAHALEFS, SHI, 


CR) End ELSE) Continue 


ERMNSNET . MICE 72ITMIE CR BETZ IF MIE TNDLHAD 
—eANLET. MISES, MHOKABSEOMAICED ETO 
C. MRL, RH OAROET. 
@ Box 
RABSBSURHBDOED OR LEMKET, 
PRIA YD A-VI IV CHIGRRD iM ttn D iS TRO, a, MARES Pew ET, 
UIC, 


0) No fill 1) Fill CR) No change 


CRVVIETOPEIMPHMOTRETOC 0, 1, ERUCRYE-BAA 
LEFF. CLT. PITS ESIECRY—-LIMFLE TD, Connect DER 
Ci T. ON FRRO Tn eR SOB HY ET. (CUP TE) 
@ Circle 
ABLVADRI OR LEME T. 
FIV AYDA-JSUCAO HD & EOE RD, 4. BRE, BEY 
DEFDEFZDERHET, 
@ Paint 
HE SA 7o IMS EN OSLEF 
PITAYI AAV MV CHUM RD be, SRM, BN OSS HOA 
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ROET. CMLAS, MIMIFI PSH, Midi CMASMSNETA, 
Ctuld, IOP 2a y PRB DNC SRYD, HES NM 
INO SERED COMA HORBA. avy PRI ko THSANTLE 
Vaal s CHM ORSNTCLER MAEM HA SLOCH, HB, WE 
Dy, BEL 1 C#RSMLA DET 2) Lae TE ERA, 
© Pset 
RBedbET. 
FIT A YD ASYM CHIE IRD, BBRE STR ET, BBHE S 1) Preset (c 
LRE SUSE eHELET. 
© Delete 
HROP— 7 SHIRLET. 
WRUTEL PEG AM TAETOC EVNIECR¥-, £5 CHIT 
LIFTHNUAOY—eHELT RSs, MILD OHSS NET, 
@ Clear 
F-F7eINTHIRL CT. HIMe 7) PLES. 
PIP ELTHEWMEZ MH TEETOC, LUHIFCR*-—ZHLT 
CRSa, MNS Z VP SRES. 


F—-FiE3 0 OME CAV ETA, Hee Levalkhld, ACU dat DBF & 
max OFX BZTR Sa, R27EL, 


dat DBF =maxt 1 


CHF HI BVvDIFVIZHAL, "Date area full”M% yeR-—LYAstye 2% 
AvAaza—-iKCKRN ET, 


2) Load 

FST PANMP OHALAET, 

TFRANMBDAN EEL TREFO CHAAR T PANBZEANLT CRE 
WA, 
TAEL ET TANEEANFS ELA Y Aaa lI ET, 
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F-PISTTAWETIKD EGET ITA VIP-I OBIS THEF, 












































line 14 Oe 00 10 00 00 15 xx xx 03 
co fu xs ys xe _ ye fill 



































paint 14 0e 00 0a 00 00 18 01 03 
XS ys co bco 




































































pset 14 Oe 00 0a 00 00 17 01 03 
XS ys co fu 

















circle ld line MIRAE LTHENET, REL, 


















































14 Ve 00 Oe 00 00 15 03 


























EW 7 IIa, Mii line & (XBR DD Lito TET, (2284 RAPHY 
PSD VaG) 

COF—F% ACH dat CAML TMH A ED. MLC Lis, BPROC 
EDUREOR!O 4) loaddatammene <PS ia, 


3) Save 

F-PRETITAVIDELDBCH-TFTLEF. 
FTANMBEAALTL Bala, CDER, MICHEL THAT PANE, 
CRE¥-DAANTFSL, AA YX aa -1KRYN EF, 


4) End 
OS— 9D EF, 
POP EC-TLRPEFMH TK SDT, E-TLTHASZDEECRE-, 
47 CEUFNIFENUADY-—KANHLETF, 


SPROCEDUREORM 
© geditor 











198 BasicO9IC KS TAPIA 


AAYM-FYCT. COMMS Edit, Load, Save, End DV —F v (24k L 
ESahe 


O g_edit 
Edit’-FY tt, 7IV4tv7 Savy FORMA -—F vical ET, 


© save_data 


F-7eAMBNIC LTH -TFLET. 


O load_data 

FITVA VDI F-JSONBRH SE MAP — ZIT, MAIL ES, 
BT AIT AY PDWMD 3754 bs, FG CORE Bb THEWD Cis 
AMRMIZLETF, 4754 | Ald$10% SH line, $0A 4&5 paint ¥ lx pset, FNL 
Hee circle &e@), €NFN1000. 2000, 300 OieamRLET, 
paint & pset ORRIN, 7754 b AD$17% GS pset, $18% 6 paint CH, 4 
RUS TWD! 1, Oy 0.92: QO ONE Pe le Serazy 

line, pset, paint ONMAAILHH Oi) CHD, circle (t line MHLAL L 
THRENSRD, FAO UMAYBiceW ET. 

a) BXOELELERHA 

Ait DES AG E do) (CREEL IS ko THI TO ES. KMORM $A 
Ay FRIED © UDO) y BEREDSR EO, KIC COMA x xs th, MAD y 
BEBE i & HUD OY REBEL < Ze } ROMO x AEB x e 2 ABP r DS, 


r= (xs—xe) / 2 
CHUDD X AERA 
xX=xs-—fTr 


CHRHOENET. 
b) BXVOETHA 
AnD SATE Db YI, Hb b RES) CLIC ko CHAT E 


a 
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Fo WD BRA WA DS HL OD BE Ze ah & RH OD x IED BE DS GE 

ricenes, 

BYIBSTMED POWMIL, HW OERE HS, Wa CARO Y AB aS 
LDPE PCHMLET. FTkbb, SLIUNITEVORL, 45 CHitH 
ISBVOBS ROLY CEMBHHN ET, 


© draw_connect 


Connect DRHDL—-FxuCTH, 


KS, ye sees WO xX. y eRe 
Xs, Ye: tenes MDX, VY HORE 
iden er BEAE 
Go vementeine oond fi 
O draw_box 
Box DHL —-F yr tt. 
fill seeeeeees 0: WS 1: BNL 


fluté Connect Ef] UCT, 


© draw-circle 


Circle DMHL—-FYCT, 


XS. YS cree FJOUDA xX, Y HERE 
Xe, ye ce FUE ORO x. Y BRE 
ea dg bore MARE 


© draw_paint 
Paint MMH —-FYes, 
XS. YS oct Paint OBAMA xX, Y AeRE 


© draw_pset 
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Pset DRHYL—-FYCT, 


KS, yS cree HOX, y Ae 


© Delete_data 
Delete MRE —-FY CHF, num #1 ETO LTREF, 





© Clear 
Clear DRLHLDL—-FYCeT, num? 0IC LET, 


© input_color 


AF-I—KOAN EWM LET, BILEDAIIC DY Ho THEFT. 


© input_fill 
BYOSTPE DD (fill) DAH SVWHLET, Box BLU Circle ACT. 


© input_function 


BEHE 2 — KOA REEL EF, 


© loc023 
FRA PMMA PE 27 HROMTETAARL TATA yY7EDICILT 
A-Yve! (0, 23) OffihicboTwa dT, 


O draw 
EHD OHMS LEDT, NARS pathoaz7 7 4 VEATCH L 
#4, Save, Load, Paint, Delete CH» #4, 


O cls 
FRA, FIT74A y 7 aM ze 7 PLES. 


FAT FZ AW CHIC L Ts} Be HHL ET. 








num 


max 
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Sal ie FIVE ID F-IDRE, OP SWEDES, 
veeenum Dick, maxt+ 1 [OFF RAN ATRECT, 


dat (300, 8) SAT 4 YPP-HRUAV SES, BIRFERT ITY v F 


ch 


Nese. PIQBRIT II 4» 7 avy eickoCTKOD 
EIDICBEDINET. 


Connect 


Box 
Circle 
Paint 
Pset 





coven OPA IO SCF 





PROCEDURE geditor (FM—7, 8A) 


OK 


definitions *) 


base 0 


dim 
dim 
dim 


num, cmd, dat (300,8): integer 
path: byte 
ch? stringft] 


num = 0 
ie 3 main routine *) 
run cls 
loop 
run loco23 
print “1)edit 2) load 3)save cr) end”; 
get #0, ch 
if ch = hr# 13) then 
run loco23 
print “data already saved cr)ok eise) no”; 
get #0, ch 
if ch = chr¢(13) then 
end 
else 
run save_data(¢ num, dat ) 
end 
endif 
else 
if ch > “0” or ch < “4” then 
cmd = val<¢ ch ) 
On cmd gosub 10, 20, 30 
endif 
endif 
endloop 


10 run gedit (num,dat) ¥ return 
20 run load_data(num,dat) ¥ return 
30 run save.data(num,dat) ¥ return 


PROCEDURE g edit 





202 BasicOI9ITkSTAFILA 


Ok edit routine x) 

base 0 

param num: integer 

param dat (300,8): integer 

dim max, xS, YS, cmd? integer 
dim ch: string(1) 


max = 299 
loop 
run loco23 
if mum > max then 
run loco23 
print “data area full” 
end 
endif 
run toco23 
print”t)connect 2)box 3)circie 4)paint 5)pset 6) delete 7)clear cr) end”; 
get #0, ch 
if ch = chr¢ (13) then 
end 
else 
if ch > “0” and ch < “8” then 
cmd = val (ch) 
On cmd gosub 10, 20, 30, 40, 50, 60, 70 
endif 
endif 
endloop 


10 run draw connect ( num, dat ) ¥ return 
20 run draw box ¢ num, dat ) ¥ return 
30 run draw.circle( num, dat ) ¥ return 
40 run draw_paint ¢ num, dat >) ¥ return 
50 run draw_pset( num, dat ) ¥ return 
60 run delete_data( num, dat >») ¥ return 
70 «run clear( num, dat ) ¥ return 


end 


PROCEDURE save_data 

* gave routine x) 
base 0 

param num: integer 

param dat (300,8): integer 
dim i, j* integer 

dim path: byte 


on error goto 10 
run loco23 
input “file name *, f¢% 
if f$ =~" then 
end 
endif 
create #path, f$: write 
run draw ( path, num, dat ) 
close #path 
end 


if err = 218 then 
run !oc023 
print “file already exists”$ 
else if err=215 then 
run locod23 
print “bad path name”; 
endif ¥ endif 
end 


ROCEDURE draw connect 

ox connect rout ine *) 

base 0 

param num: integer 

param dat (300,8): integer 

dim max, xS, yS, x@, ye, CO, fu: integer 
dim ch: string(1] 





ZPDAMF 203 


max = 299 

xs = 320 

ys = 100 

co = 7 

fu =0 

run gcursor( xS, YS, xS, ys ) 
loop 


run pset( xS, yS, 7, 4) 

run gcursor( xs, yS, xe, ye ) 

run 1!oc023 

run input_color¢ co ) 

run input function¢ fu > 

run pset( xS, yS, 7, 4) 

run line¢ xs, yS, xe, yes fu, co) 


dat( num, 0) = 1 
dat(¢ num, 1) = xs 
dat( num, 2) = ys 
dat ( num, 3) = xe 
dat(¢ num, 4) = ye 
dat¢ num, 5) = fu 
dat¢ num, 6 ) = co 
dat( num, 7) = 0 
num = num + 1 
if num > max then 
end 
endif 
xs = xe 
ys = ye 
run loc023 
print “cr)end else) continue”; 
get #0, Ch 
if ch = chr¢$(13) then 
end 
endif 
endloop 

end 

PROCEDURE draw_box 

x box, boxfill routine *) 


base 0 

param num: integer 

param dat (300,8): integer 

dim max, xS. yS, xe, ye, co, fu, fill: integer 
dim ch: string(1) 


max = 299 
xs = 320 
ys = 100 
co=7 

fu =0 
fill = 0 
loop 


run gcursor( xs, YS, xS, ys ) 

run pset( x8, yS, 7, 4 ) 

run gcursor( xs, ys, xe, ye ) 

run 10c023 

run input color¢ co ) 

run input—function( fu > 

run inputefill¢ fill > 

run pset( x8, yS, 7, 4) 

run |ine« x8, yS, xe, ye, fu, co, fillt! > 











dat¢ num, 0) =1 
dat( num, 1) = xs 
dat( num, 2) = ys 
dat( num, 3) = xe 
dat( num, 4) = ye 
dat( num, 5) = fu 
dat( num, 6 ) = co 
dat( num, 7) = fillt] 
num = num + 1 
if num > max then 
return 


endif 
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xs = xe 

ys = ye 

run loco23 

print “cr)end else) continue”; 


get #0, ch 
if ch = chr¢(13) then 
end 
endif 
end! oop 


end 


PROCEDURE draw circle 

(x circle routine *) 
base 0 

param num: integer 

param dat (300,8): integer 
end 


PROCEDURE draw_paint 

x paint routine *) 

base 0 

param num: integer 

param dat (300,8): integer 

dim max, xS,» yS, CO, bco: integer 
dim path: byte 

dim ch: stringl13 


max = 299 
xs = 320 
ys = 100 
co=7 
bco = 7 
loop 


run gcursor( xS, YS, XS, ys ) 
run pset( xS, yS, 7, 4 ) 

run 1oco23 

print “boundary “3 

run input color( co ) 


bco = co 

run loc023 

run input_color¢ co ) 
dat( num, 0) = 

dat ( num, 1) = xs 
dat¢ num, 2) = ys 
dat ( num, 3) = co 
dat( num, 4) = bco 
num = num + 1 

run cis 


open #path, “~“/term”: write 
run draw( path, num, dat >) 
close #path 

if num > max then 


return 
endif 
run loco23 
print “crm end else) continue” 
get #0, ch 
if ch = chr¢(13) then 
end 
endif 


endloop 
end 


PROCEDURE draw_pset 

x pset, preset routine *) 
base 0 

param num: integer 

param dat (300,8): integer. 

end 


PROCEDURE delete.data 

(x delete routine *) 
base 0 

param num: integer 

param dat (300,8)+ integer 
dim path: byte 

dim ch: string(1) 


if num = 0 then 
run 1oco23 
print “data empty” 
end 

endif 

run loc023 


SIDA 


print “delete ok ? cr)ok else) no”; 


get #0, ch 

if ch = chr$(i3) then 
num = num - 1 
run cis 
open #path, ~/term”: 
run draw( path, num, 
close #path 

endif 

end 


PROCEDURE clear 

xk clear routine *) 
base 0 

param num: integer 

param dat (300,8): integer 
dim ch: string(1) 


run loco23 


write 
dat > 


print “clear ok ? cr)ok else) no”s 


get #0, ch 
if ch = chr$(13) then 
num = 0 
run cis 
endif 
end* 


PROCEDURE input—color 


Ok color code input routine *) 


param co: integer 
dim i: integer 
dim ch: string{1] 


loop 


print “color O)black “3 


for i =1to7 
run color ¢i) 
print is 7 75 
next i 


print “cr)no cnange*s 


get #0, Ch 


if ch = chr$(13) then 


end 
else 


if ch >= “0” and ch <= “7” then 


co = val (ch) 


end 
endif 
run loco23 
endif 
endloop 
end 


PROCEDURE input_fill 
Ok Ais ees *) 
param fill: integer 
dim ch: string(1) 
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loop 
run 1oc023 
print “Ono fill fill cr) no Change”; 
get #0, Ch 
if ch = chr$(13) then 
end 
else if ch >= “0” and ch <= “1” then 
fill = val (ch) 
end 
endif ¥ endif 
end!oop 


end 


PROCEDURE input function 

(x function code input routine *) 
param fu: integer 

dim ch: string{1] 


{oop 
run !oc023 
print “O)pset 1)preset 2)0r 3) and 4)xor 5) not cr) no change~; 
get #0, ch 
if ch = chr#(13) then 
end 
else if ch >= “0” and ch <= “5” then 
fu = val (ch) 
end 
endif ¥ endif 
end! oop 
end 


PROCEDURE !oc023 
kK locate 0,23 *) 


run linec 0, 184, 639, 199, 0, 0, 2) 

run locate( 0, 23 ) 

print 

print 

run locate( 0, 23 ) 
end 


PROCEDURE draw 

Ok draw routine *) 
base 0 

param path: byte 

param num: integer 

param dat (300,8): integer 


dim i: integer 
for i = 0 to num-1 
if dat¢i,0) = 1 then 


run line¢ path, dat(i,1), dat¢i,2), dat¢i,3), dat¢i,4), dat¢i,5), 
dat (i,6), dat¢i,7) > 
else if dat¢i,0) = 2 then 
run circle( path, dat(i,1), dat¢i,2), dat¢(i,3), dat¢i,4), .4495, 
y +0,1., dat¢i,5), dat¢i.6) > 
else if dat¢i,0) = 3 then 
run paint ( path, dat¢i,1), dat(i,2), dat¢i,3), dat¢i.4 ) 
else if dat¢i,0) = 4 then 
run pset( path, dat(i,1), dat¢i,2), dat¢i,3), dat¢i,4) ) 
endif ¥ endif ¥ endif ¥ endif 
next i 
end 


PROCEDURE cls 
dim b(1)? byte 


bd) = $16 
put #1, b 





end 


PROCEDURE |oad.data 

x load routine *) 
base 0 

param num: integer 

param dat (300,8): integer 
dim dummy1: string{3] 

dim dummy2: string(15) 
dim dummy3: string(2] 

dim dummy4: string(19) 


dim i, Jj» tempx, tempy, xS, yS, xe, yet 


dim path, byt: byte 


on error goto 10 
run locod23 
input “file name ~, f¢ 
if f¢ = “~~ then 
end 
endif 
open #path, f$: read 
i=0o 
while not eof ( #path ) ) do 
get #path, dummy1 
get #path, byt 
if byt = $10 then 
gosub 1000 
else if byt = $0a then 
gosub 2000 
else 
gosub 3000 
endif ¥ endif 
i=ied 
get #path, byt 
endwhi le 
num = i 
close #path 
run cis 
open #path, “/term™: write 
run draw( path, num, dat > 
close #path 
end 


10 
if err = 216 then 
run loco23 
print “file not found’$ 
else if err = 215 then 
run 1oc023 
print “bad path name”; 
endif ¥ endif 
end 


1000 
get #path, dummy! 
get #path, byt 
dat ¢i,6) = byt 
get #path, byt 
dat ¢i,5) = byt 
for Jj = 1 to 4 

get #path, dat ¢i.J) 

next J 
get #path, byt 
dat (i,7) = byt 
dat¢i,0) = 1 
get #path, dummy3 
return 


2000 
get #path, dummy! 
byt = asc( right$( dummy!, 1) > 
if byt = $17 then 
gosub 2100 
else 
gosub 2200 


integer 
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endif 
return 


2100 

get #path, byt 

FOF 5 °F) Teton? 
get #path, 

next J 

get #path, byt 

dat (1,3) = byt 

get #path, byt 

dat (i,4) = byt 

dat¢i,0) = 4 

return 


2200 

for J =A1\to, 2 
get #path, 

next J 

get #path, 

dat¢i,3) = 

get #path, 

get #path 

dat ¢i,# 

dat (i ,0) 

return 


byt 
byt 
byt 
byt 
byt 
3 


tie 


3000 
dat¢(i,0) = 2 
get #path, dummy1 
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dat (i,j) 


dat (iJ) 


get #path, 
dat(i,4) = 
get #path, 
dat¢i,6) = 
get #path, 
get #path, 
get #path, 
get #path, 
if ys = ye 


byt 
byt 
byt 
byt 
xs 
ys 
xe 
ye 
then 


dat (i,1) 
dat ¢i,2) 
dat (i ,3) 
dat (i ,5) 
tempx = xe 
tempy = ye 
while xe <> 


xs 
ys 
xe -— xs 


| 


ae | 
tempx or ye <> tempy do 


get #path, dummy2 
get #path, tempx 
get #path, tempy 

endwhi le 

get #path, byt 

return 

else 

dat (i ,2) ys 

dat (i ,5) (0) 

tempy = ys - 1 

while tempy <> ys do 
get #path, dummy2 
get #path, tempx 
get #path, tempy 

endwhi le 


uu 


dat ¢i,3) = 
dat¢i,1) = 


( xS - tempx ) 7 2 
xs - dat ¢i,3) 


tempy = 


ys - 1 


while tempy <> 
get #path, 
get #path, 
get #path, 

endwh ile 

get #path, byt 

return 

endif 
end 


ys do 
dummy2 
tempx 
tempy 





AAO Guay 209 





PROCEDURE draw_connect 

(x connect routine *) 

base 0 

param num: integer 

param dat (300,8): integer 

dim max, xS, YS, x@, ye, CO, fut integer 
dim ch: string({1] 


max = 299 

xs = 320 

ys = 100 

co =7 

fu=0 

run gcursor( xS, YS; XS, ys ) 
loop 


run pset( xs, yS, 7, 4) 

run gcursor( xS, yS, xe, ye ) 
run loco23 

run input color ¢( co >) 

run input-function( fu > 

run pset( xS, yS; 7, 4) 


run line( xS, yS, x@, ye, fu, co ) 
dat(¢ num, 0) = 1 

dat( num, 1) = xs 

dat( num, 2) = ys 

dat( num, 3) = xe 

dat( num, 4) = ye 

dat¢ num, 5) = fu 

dat ( num, 6 ) = co 

dat( num, 7) = 0 

num = num + 4 


if num > max then 
end 

endif 

xs = xe 

ys = ye 

run loco23 

print “cr)end else) continues 

get #0, ch 

if ch = chr$(13) then 
end 

endif 

endloop 
end 


PROCEDURE draw circle 

x circle routine *) 
base 0 

param num: integer 

param dat (300.8): integer 


dim max, xS; yS, xe, ye, fm, CO, fu, fill? integer 
dim ch: string(1] 


max = 299 
xs = 320 
ys = 100 
co=7 
fu=0 
fill = 0 
loop 


run gcursor( xS, yS, xS, ys ) 

run pset ( xS. VS, 7, 4) 

run gcursor( x8, yS, x€, ye ) 

x = xs - xe 

y=fix¢ (ys - ye) 7 .4495 + .5 ) 
r= fix¢ sart( xk&x + yky >) + .5 ) 
run loco23 

run input_color¢ co > 

run input function¢ fu > 

run input_fill¢ fill > 

run pset( x8, yS, 7, 4) 


run circle( xs, yS, Pf, CO, -4495, .0, 1., fill, 


(F M—11 R25 A ) 


fu) 
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dat( num, 0) = 2 
dat( num, 1) = xs 
dat( num, 2) = ys 
dat( num, 3) =r 
dat¢ num, 4) = co 
dat¢ num, 5) = fill 
dat¢ num, 6) = fu 
num = num + 1 


if num > max then 
return 

endif 

run l!oc023 

print “cr)end else) continues 

get #0, Ch 

if ch = chr¢(i3) then 
end 

endif 

end!oop 
end 


PROCEDURE draw_pset 

(x pset, preset routine *) 
base 0 

param num: integer 

param dat (300,8): integer 

dim max, xS, yS, CO, fu? integer 
dim ch: string(1] 


max = 299 
xs = 320 
ys = 100 
co=7 
fu=0 
loop 


run gcursor( xS, yS, xS, ys ) 
run input_function¢ fu ) 
if fu <> 1 then 


run 1oc023 

run input color co ) 
endif 
run pset( xs, ys, co, fu) 
dat( num, 0) = 4 
dat( num, 1) = xs 
dat( num, 2) = ys 
dat( num, 3) = co 
dat( num, 4) = fu 

1 


num = num + 
if num > max then 
end 
endif 
run loc023 
print “cr)end else) continue”; 
get #0, Ch 
if ch = chr$(13) then 
end 
endif 
endloop 
end 


PROCEDURE 1!o0c023 
(x locate 0, 23 *) 


run line¢ 0, 184, 639, 199, 0, 0, 2) 

run locate¢ 0, 23 ) 

print ~ Mg 
print 
run locate( 0, 23 ) 


nen 
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3=3— 5. cards 


OTT 4 y ZEBHE © Mi To MRE SERS 7 A 

BasicD9D 7774» TREREIS. RU CRM CILSZ ECAR, ZOFIT4 
JPEAORMEET-AT ATF be PRLE LK. 

SYMBOL, KPRINT##®HT, Basic09 CHZ4777 4 v THBREIS. 
CONNECT#@#R&, TNH TVET. 


F-LOAS 

hAvHO "pee Ik ZALLECH VA LETH, COTFUTF AI, 1 
ATHVAFSbNTT. 

BTDFAYY +e, BasicDICA-FELT (FEYIE1 0 KN4 BB), 2 
AvVTATFIA “cards"*ZRUNTME, F-AlsMEV ET, 

ERM, HOEPUCMPACKULTHWT, Shell 2VY FF4 Y*SH cards & #2 
Mees. 

PNA PS vy THD AL, BRET & eT 4 SOC, DPE CAN 
LET. (83FM6 5346 SVs 4CL EF) 

TRAE DAD SNS, A- PEE CRHIRLT. FYISAIHNETF, 

A-PKOBMITI, BeA CHRO TAET, 

Weed oS cP IC. SX YI"ERRSH, V-FORBROPBERSENT, 
P-LEVNASLET. BARA FORME FET. Be MEOUBIC, BAER 
ZEVAK (WV UIMLAEtA) CKWMTTAALET. AADIELH NI, 
ZOA-PFPRICKSN, ATI) PHMIZ, HAHEBRLEF, 

SH, bI-KMOA-FEBATC. MRICANT SL. FEDA-FORICS 
2T, 2KOA- FOREN T. ALGO AECENEDA- FEMA, Be 
tid, ERRCSYLET. 

LOR C. HOMME OF 2 7 BLT. KOA FOBIRAHEA ET. 

HAT, BY OBC, RETIREE], URI SAAS SALT EF OC. HE 
ANIC A dott ILS wD. PIKE TATE ta, 
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FUOPFD Ales wet 

1) PER 

COPAUPAAI, AA VERO. SACL ADF OY riko THM 
TOC, COHEN Lig T EG ROTHESF, ER, TIT 4 vy TBAT 
RINELI“ARCHHL TET, 














fais Cimeac) Gore)’ cardmuch ) (pniset) 











Geales) flame) turn) inputxy) (panel 


ile 


4A-Fld, FORM (V-7) EME TT, BSTIORBRCHEQN EZ IZA 
— FEL TRE LTRIEF, SLT, BNL BALI, MEOLIRIC HE T. 13 
XA ORCMIZ, FOI-KFRMAUN SENET, BOEAL, H-FEBNSZICIS, 
RNDARMe Hho THES, CHHIX, FOV Y -"pniset” Cfo TH ZLIAT 
To 





Rl FI71+41y 7 





KPRINT BA hI intro 
LINE AA FORE flame 


PAINT 7A FOI panell 
SYMBOL A- FORE turn 
RBSET 7A— ROBE panell 





A-FeRIGKIT OI, POY yY - “turn” Cito THEFT, BIEL D3 79O2] 
—Rittiot., V-7ERESYMBOLX CH THEF, 4 OS —7 Id, 
ASCII 2—F2AMCOeP5THZNC, CHR$ SHi5 TC, fMicatis $s 
tm, MROFGIZ, “A”, "IT", “QQ”. “K"EBACHZOC, KETREHOT 
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WET. (YALBR) 


#2 N-FORDLA 


A-KOMM He THEOL, 7 
ayy -+"panell”C, Pset& FOR 
~NEXTV—-FREMAR DET. H 
HZ KERRE [io TW ET. COMA ® 
TRIED LE, 42 GHD TEN SDT, 
Ro TAZEBSLAYTLED. 

TI7 4477 WHS. 64020 J J 
04640X40 0m TAS SS “a OE 
i, MEPRICBES SBRES OT OY Ye MCN X-PELTRHALTHET. 
640X400, 24 v7OY Y v"cards”’D, yOO= 1 &, yOO= 2 EMZ 
HIE Clic RRIBRACT, 





2) SPAY Y » OBRAE 


o7uYys cards B32 F571 7 eT 
LATAYY xi, 24 
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CHER RA vy hives 
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SL, H4DO1IERUN 
MiewoTwSZlLEMSd 
DHA CLE Ds 
LOY-Alk, ABEL 
Cli, FUT FADNDHFRHNS HE) MHECTITH) KAA. 
KEo(PCHSL, OME, OF — PORIR, RR, ORM-RLLO 
He, ORO KK, HDR, OKTHE LororetiniczoChrt, @ 
~QEA A VU -T HEB SITE SF. 


A — FN x MOREL 
HEF » FBZ 2 0:0 
Am Bees ERR re 
> — FORK » Be 
A FOHER y b Be 
LAH ROR CH) 1 ~13 
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bj -ORBa KAY BIC. 79774 y TICS 3 RRO) hrras 
NEF. HIM KF IC, BB yOOR ZI FSRIGCTH 40X40 0K TSS 
IEP) CHE. TIT y 7 MTHO LP, RAOPTBH, A-FOKES 
DEB, Eh, WAT SA-FORMORE dlc, COXA YT AVY + 
DPN LE OBI OMA REE Z SPV CH MIC CKSZLI CE VTHEF. 
HZ ESMLTFRSY 

COEF AA VTOY Ye DER, STOTT OY Y & BREAN IC 
CREEFICTORD, STAY VX ONIX -IBBK HoTHBOTTF. 


ovyuyvy-r intro 
F-FHVTHHMORAC, WRMOAN RAI TAY Ys tT. A-TF 

AVF HMM GeO, EVI, COPAY Y + BBY THT T A, 

fi POAC, HM tlimit RE Le FIT) KAA 

$7o, MRC MPRA LTR SOE, BIC PUOTAYY+TtT. 


oyuyy- panel 
Ix ® ly MOA — F EBGKLICIN THK RODTAYY x CT, xK® Panell 
EUEA CIET, 


oyuyry-r  panell 
nx * ny CHEN SMH — FREBET TOY Ye TT. 
paint KMD, MARSH TH SLCSTS. F-BAS I CBO7IT7 4 
YIOGET, PUTBEOOT, HM, —-BTOLG LTH THE T. 


ovyuyy-r  pniset 
Ix * ly KOA-KFEBNS, THDEMARRIC, HicMW< 3 77D aA— 
Re, FY PAHO YTTRIET. 


ovyuyy- cardmuch 
2DRNA-FRILNT, HRLREL, LEP ORBAMMMe LTE 


FP PAVE 215 


$5 


oyauyvyry turn 

PX. py CHIN AMHO 7— PKA CHS ET, 

SYMBOL Xe Ho TWETA, IT-FRODV—-7, RENORRGE, 
RFEROM TE, BRICZSEBROES, 


OFuYY-+ timeac 
DATESOAM., Tebb, MEMORY D b RRC ICAI LET. 


OFuYY-+ inputxy 

A RHMRM, X, VRANFSROUCoRTAY Yr tty, Be, 
KPMO—-BROAHIZ SHACTEET. 

MEM Aic INPUT eHbteiameiwnrjk, ANS AMHorR BTL 
CHA HERO RARECTLEWD, HOR OF IT 4 y JMS EV % Lc 
LULEVPSTCT. 

LOF-ADE—-K-FAHUET. COFOY Ye RAO THET, 

BBS, B2NS7A-HRKOEZIC EL THVETF, 


HEB 2 BERL 0 DE 


ARO 1 EK BLNAA-PSICANT-IF 
EM 1 BER =i BSD RA—-PICANT-F 


TIF 2 BROBR AO FY SHS RREREEYST POAAMTC. TZ 
VISHHACE EA, 


DEBERV RY Ye CH, LDV OY Y [EHD Vr BEREOD CHWS AK 
LET, EB, SVRBY Vr ONREMBLETDCCESICLTPF Sta, 





PROCEDURE cards 

dim xO, yO, Ix, ly, mx, my, nx, NY, Wx, wy, x00, yOO: integer 
dim pnl (13,4), dummy: integer 

dim count, flag, pc, pnia, pnib, time, tlimit: integer 
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dim start, now: real 
dim cstart, Cnow: string(8] 
dim yn: stringl79] 


run cls 

run color (7) 

tlimit = 0 

run score( 0, 0, 7 ) 
flag = 0 


yOO = 2 

x00 = 300 

wx 38 

wy 26xy00 

Ix 13 

ly =4 

x00 — wxkKIx72 + 1 
50xyoo 


fe 


PGR -H-S===-s= PEStERt seem eeHee—- 


run color (7) 

count = 0 

time = 0 

run intro¢ xO, yO, wx, wy, Ix, ly, yOO, tlimit ) 
exitif tlimit = 0 then 

endexit 


run panel ( xO, yO, Wx, WY, Ix, ly, yoo ) 

run pniset¢ pni, Ix, ly >) 

run score ( Ixkly-countx2, time, 7 ) 

run locate 60, 3 ) 

print using ~“s11,i7*", “time limit ~, tlimit*60 


rem ---------- stant S-aeS-s=s- 
cstart = right$( dates, 8 ) 
run timeac( cstart, start ) 


repeat 


run input! ¢ xO, yO, Wx, WY, Ix, l¥, mx, my, pni, 22, yOO ) 
pnia = pniG mx, my > 
pni¢ mx, my) = 0 


run input1¢ xO, yO, wx, wy, Ix, ly, nxs ny, pni, 23, yoo > 
pni(¢ mx, my ) = pnia 

pnia = mod¢ pnia, 100 ) 

pnib = mod¢ pni (nx,ny), 100 > 

cnow = right$¢( date$, 8 ) 

run timeac¢ Ccnow, now ) 

time = now - start 

run score( Ixxkly-countXx2, time, 7 ) 


exitif time > 6OXtlimit then 
endexit 


run cardmuch (x0,y0,1x,lysmx,my,nx,ny,Wx, wy, pnl,pnia,pnib,count,yOO) 


run score( |xkly-countk*2, time, 7 ) 
run locate( 0, 1 ) 

print ~ y 

print 


until count = Ixkly72 
nen ge= Haase all done --------~ 


run score¢ |xkly-countk2, time, 2 ) 


yn = “go on?” 
run inputxy ¢ dummy, -2, 6, 21, yn) 


until yn = “n* or yn = 7n 


POM 6=S=sn42= ending -------7-- 
run color (7) 


end 
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PROCEDURE intro 
param xO, yO, wx, Wy, Ix, ly, yOO, tlimit: integer 
dim nx, ny, num: integer 
while tlimit = 0 do 
run kprint ¢ x0+150, yO-40xy00, $3f40, 6 ) 
run Kprint ( x0+200, yO-40x*y00, $3750, 6 » 
run kprint ¢ x0+250, yO-40xy00, $3f6a, 6 ) 
run kprint ¢ x0+300, yO-40xy00, $3c65, 6 ) 
for ny = 1 to ly 
for nx = 1 to Ix 
run flame¢ nx, ny, xO, yO, wx, wy, 7, yoo ) 
num = nx+100Xxny 
run turn( nx, ny» num, x0, yO, wx, wy, yOO ) 
next nx 
next ny 
tlimit = 1 
endwhi le 
run scales( x0, yO, wx, Wy, Ix, ly, yOO ) 
run locate( 6, 21 ) 
print ~ “+chr$ (5) 
run inputxy( tlimit, -1, 6, 20, “time limit (min. =" ) 
end 
PROCEDURE panel 
param xO, yO, wx, wy, Ix, ly, yOO: integer 
dim x(2), y(2), nx, ny, xx? integer 
for nx = 1 to Ix 
for ny = 1 to ly 
run panel1(¢ x0, yO, wx, WY, nx, ny, yoo ) 
next ny 
next nx 
end 
PROCEDURE pniset 
param pn! (13,4), Ix, ly: integer 
dim mx, my, nx, ny, Card(13,4): integer 
rem --~- initialize card(13,4) --- 
for nx = 1 to 13 
for ny = 1 to 4 
card( nx, ny) = 0 
next ny 
next nx 
for nx = 1 to Ix 
for ny = 1 to ly 
repeat 
my = rnd(ly-1)+1 
mx = rnd(ix-1) +1 
until card (mx,my) = 0 
card (mx,my) = card (mx,my) +1 
pnl (nx,ny) = myk100+mx 
next ny 
“next nx 


end 


217 











218 BasicONIC hk STFAFIA 


PROCEDURE cardmuch 
param x0,y0,!1x,ly.mx,my,nxsny,Wwx,wy, pn! (13,4) ,pnia,pnib,count,yO0: integer 


if pnia = pnib then 
count = count + 1 
run flame¢ mx, my, xO, yO, wx, wy, 4, yOO ) 
run flame¢ nx, ny, xO, yO, wx, wy, 4, yoo ) 


pni¢ mx, my >) = 0 
pni¢ nx, ny) = 0 
else 
for wait = 1 to 1000xy00 
next wait 


run flame¢ mx, my, x0, yO, wx, wy, 8, yOO ) 
run flame¢ nx, ny, x0, yO, wx, wy, 8, yoo ) 
run paneli¢ xO, yO, wx, wy, mx, my, yOO ) 
run paneli¢ xO, yO, wx, wy, nx, ny, yoo > 
endif 
end 


PROCEDURE timeac 
param Ctime: strings time: real 


t ime=3600kval (left$(ctime,2))+60kval (mid (ct ime,4,2))+val (right$(ctime,2)) 
end 


PROCEDURE input1 
param xO, yO, wx, Wy, Ix, ly, mx, my, pni (13,4), py, yOO: integer 
dim flag: integer 
dim prompt: string(4] 
prompt = “x y:”* 
my = 0 
repeat 
run inputxy ( mx, my, 6, py, prompt ) 
run check( mx, my, Ix, ly, pni, flag > 
until flag = 0 
run flame¢ mx, my, x0, yO, wx, wy, 8, yoo ) 
run turn ( mx, my, pni(mx,my), xO, yO, wx», wy, yOO ) 
end 


PROCEDURE turn 

param px, py, num, xO, yO, wx, wy, yOO: integer 
dim x(2), y(2), c: integer 

dim cnum, numlist: string 


numlist = “a23456789 10j qk” 


x1) xO+ (px-1) Kwx 


x (2) = xO+pxkwx-2 
yd) = yO+ (py-1) *wy 
y (2) = yO+tpyxwy-2xy00 


run paint ( x(1)+wx72, yCd+wy72, 7, 2) 

c = num/7100 

Ccnum = mid$¢ numlist, mod(num,100)*2-1, 2 ) 

run symbol ( x(1)+2, y(1)+2xy00, cnum, 1, 1, 

run symbol ¢ x(2)-2, y(2)-2ky00, cnum, 1, 15 

Cnum = chr$(231+num/100) 

run symbol ¢ x(1)+8, y(1)+10xy00, cnum, 2, 1, Cc) 
end 


0,0) 
0,2) 


PROCEDURE f lame 
param fx, fy, xO, yO, wx, wy, pc, yOO: integer 
dim x(2), y(2), func: integer 





LBIARMGD 


func = 4 
if pe = 8 then 
pe = 7 
else 
func = 0 
endif 


xd) xO+ (fx-1) Kwx 


x (2) = xO+ Ff xxwx-2 
ya) = y+ (fy-1) kwy 
y (2) = yO+fyxkwy-2x*y00 


run line¢ x), y(t), x(2), y(2), func, pe, 1 > 
end 


PROCEDURE check 
param x, y, Ix, lys pnl (13,4), flag: integer 


flag = 0 

if x < for x > lx ory < 1 or y > ly then 
flag = 1 

else if pni (x.y) = 0 then 
flag = 1 


endif ¥ endif 
end 


PROCEDURE panel1 
param xO, yO, wx, Wy, nx, ny, yOO: integer 
dim x(2), y(2), is Js Ky |, Cl, C2? integer 


xd) xO+ (nx= 1) wx 


x (2) = xO+nxkwx-2 
y(t) = yO+ (ny-1) kwy 
y (2) = yO+nyxwy-2%*y00 


run line¢ x1), yi), x(2), y(2), 0, 5, 1) 
run paint x@)+1, yd+l, 1, 5) 


cl =6 
c2 = 4 
1 = C1) +x (2)) 72 
for i = x(1)+4 to x(2)-4 step 4 
be & > 4d then 
ci =4 
c2=6 
endif 
k = abs (l-i) 72+4 
for j = y(i)+1 to y(1)+1+kkyOO step 2xy00 
run pset(C i, js cl, 0) 
next J 
for j = y(2)-1-kxy00 to y(2)-1 step 2xy00 
run pset( i, j, C2, 2) 
next J 
next i 


end 


PROCEDURE scales 
param xO, yO, wx, Wy, Ix, ly» yOO: integer 
dim nx, ny? integer 


for nx = 1 to Ix 

run symbol ¢ x0+10+ (nx-1) *wx, yO-wy+17*y00, str¢ (nx), 1, 15 6 
next nx 
for ny = 1 to ly 

run symbol ¢ xO0+Ixkwx+17, yOr8x*xyOO+ (ny-1) xwy, stré(ny), 1, 2, 
next ny 


) 


6, 


3) 


219 








220 
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end 


PROCEDURE score 
param rest, time, pc: integer 


run color¢ pe ) 

run locate 60, 1 ) 

print using “sii,i7>*, “rest cards ”, rest 

run locate¢ 60, 2 ) 

print using “S11,i7**, “time “, time 
end 


PROCEDURE inputxy 

param x, y, Ix, ly? integers prompt: string 
dim Ip, Ik: integer 

dim inkey, Ikey: string 


On error goto 10 
Ip = len(prompt) 


10 rem ------~----------------- 
run locate ( Ix, ly ) 
run color¢ 7 ) 
print prompt; 
print chr$ ()+chr$ (5) 
run locate  IxtIp, ly > 
run color¢ 7 ) 
input ~*, inkey 
if y = -2 then 


prompt = inkey 
x=0 
else 
x = val ( inkey ) 
endif 
if y > -1 then 
repeat 


(key = left$( inkey, 1 ) 
Ik = len¢ inkey > 
inkey = right$( inkey, Ik-1 > 


until Ikey < “0” 
y = val (¢ inkey > 
endif 


end 
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KiIcSABG 1 & FSDup LEFT. 2N% 1 (SL HFEM Dup & Open ic £ pipe + 
HLTH SlEF TH. MASAO MKENET HS, BAHIA V4 Wick 
MsM727cC cicen ss, 


Oh Ags SZe peo 4 5) ere 8819944 10 gd Oe DSc lA eral 





COC, AMO ae ADORE NEY SALA RLEBDEDLICHELE 
Fo EPRPDTHEKEETHMIIE MET, 

CORA CLE RAMON Oe ASH LEC LITHEBLT FS, Alo 
PFaeRAKMHMT AVX, AMOTF Ae ADRRMOL-YU—-FY (F¥RISEOL) 
CHAREST, 
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STU YAVUZ bULAANASTTICHOETICIROEDIZLET. 

Hb PUM Shell O7A—-ANVEBRE LT 374 bRHAIRLTHRET, FZ 
NERDEMEAT PREM, PMEZS —M HICH LES. Hesd bs 0 OH} 
SUF AVARENTHAVCLERL, 0 CHV IS F$Dup (2 Eo TB 
SURNABGERLET. COUMISE CMAN TARY IAT bOMICRE 
SHET, PZITMMEM ICIS ETHASEL EL EG. 

YPAVA Bee LaTNA4 BM SNTHSZLLETL, B44 OU EH 
L784 bids 4 bt 5 BRAD THWET, 





Chena hs sap mmo gt me 8g mea) mal um lima ee! Sh a 





BEL CNA 4 SHOT F$Dup FS E*NALMKRENET, TLTNA 
4% F$Close FUINAlEH CICHBEYEF, SLICE LDR BN POF 
TNA DME I PTLETF. 





O dee? <8 +4 6 of ~8. 9 WOp vile Wy 18° ta “Lb 








AVY Kota 24\ 


4—4 AVY nH 








4—4—| €24—-—WOV-FOIRR 


Shell Off) SIS 2VY EAA Y EHR L C0 CHEE EY 2 eS 
ZrLICHI, APCHMPETSEWICLIL (Amar yY PERT) SOF 
tho 

Hd Shell (LEY 2 —V EIKO CHLET. 





LEY EVAN 


7272 LRAT REE Y 2 Ib 


RELAY Ps 7 PAI 








FRENAY ANDER NEMA, KTM Y a CHBDT ALYY 
eT TANMCH OREM DS, RCO 47 EV SHANI SET, 

EVa-WVERMT SDL IVY FORAY AREARICE<(, BNL -% 
EMM SECS. SHETI, NRVRHOMO CH SWMEMZA THRE. 

EVa-VOAY—FISRBRIISLMO EG MT HNET. 

EF INAY ARKH T FELink UTA EF. HRENAY A BRoOKRBAIL 
bEAA, EVa-WF {VT bVYICFELSWNIZLI—-IED EF, COH 
elite —- PURITY) EA, 

Link TAY PORWR, TIL RE-FREXEC. (CUT F$Open LTAE 
FT CDESICTZLETP 4 VIZ bY ORC Open SNH4NCH. BEAAEE 
EANAY ARR DRYRAIEDFAVZ7 bE COpeneNEF, CHTLI—-*BM 
MIT IEN y YO 1 3°54 | BHMAIAA, F$Close LET. 

STP 4V7 bY COpen CREPDRYAF-IF 4 VIZ bY) SC F$Open L 
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ET, COMMS OILPELa-VEISROENTF, PAavvr7rANnChSL 
ER SNET, LRMBoTIONAY Ab ldMMT KEEL a2—-—NECISS, 
HT SSS EY 2 — ld Shell (Chae 0 ERA. F-HPH4 UZ bY COpen 
LRA MLC Shell (OMT SMMANE LT. HlicwNsR £54 FIC Y 
PAVTAbEHRET, 

HEROD Shell (lS-NFA-PELT"—P X "#HELZEF, DEVI uY 
YrT7TANMORTMEV BE TAOYSbhERMRTSELEVI CLE, BEVE 
ATHIC LA —PBHRELLS EOMA CHI LALWIHRTCT. 

EV ar-NMP {VARY CHORYABLVURAT AV bY Rb ORBRK 
me b> eLES, Nv SHOALS / ABE AT Prerm+Objct Pore 6IZE 
DEECHTCESEWACLERRLETAD PlZIF Basic09 M I —Code € 
Ya-NMOLIKAPASCIRTCET, FrIAAN—-FvY (CHIE 
Prerm+Objet CeIFNIZHE) FL) EVBLFZIMOMAVN FET, 

Hite Shell AA H-bULTRAAFYI4 AV-FVlEKDIONTHF, 


PAT / BiB GV IAAF Y 


Prgrm+PCode PascalS (Pascal) 
Sbrtn+CblCode RunC (Cobol) 
Sbrtn+ICode RunB (Basic09) 





CREIIA S/S SEO-KRS NITRA T SFY IA ANV—-F VY ORS Fork 
LET. EMI S—-MLEWML, RT CHEVEVIJLZI—-iEV ETF, 

LOGE, NXAYVALEDODILEAFIY IA ANV-FVICMT BANG A -Y 
RF EER oREWZCETTH. TESTE ONIR-— FRE BI THRIDS 
WRoRDPERWRETL, RVILYNDR-PRDROTCH, DED, MADE 
RODMAN AX—-—PIzszNTT. 

Whe EEOTAET, EV 2-H —FVIZKOD 3D EERE RIC 
EV ave MHLET. 





IVy FoR 


Fork THAEV 2-H 
NZR—PD 
BME AH 


AAYAR, NPR 


Ny F138284 b IAA 
HHS AEVa2—-Ne 
Shell (2 : 
Prgrm + Objct 


PNT HS OC 
“DD a? 


PLA IMF Y 


AWAYWAb SRMEAH 
ZV F4UZ7h PAYABENDA—-PV 
LODNFR-YEFS 


EV a— NOH) 
(um) 
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EVA P AV bY) EICHMEL RBA CH. TEHEETED ORE TTL, 
FAT FAV bVICHBRENRYA CHA RIL THeRPoROESMMOML 
CRS, MHTKA EY 2—N OHM LELROCOLEF FELink LTA 
Jo BI-—BOHIZX EV UUM LVYGCEEDCHKHT FELoad LEFF. CN 
CHD TRE!) LICHET SC Lm LE LROTC F$Fork LET. 


4—4—2 WAmiavrr 


Ag avy Fe Shell t7Y a visti Oc CARL TSH HY) ERAD 
C, RIC LCANMavy FEMECeICLELE I. 

Lonavy FROM T, BRIA a POS SR eH, OLB 
—FYEMUMLED, CHEAMIry Fe <eSECHIBLET, 

REBAR AVY PIERRE LEDRMEO KES LEGA, 

Amavy Fe el Tasks, 


% comment 


IVY RE FAVREOLECHALCIZL, tS RTLECA. WS LEVAR 
Cho YN slFRAVY FCH. FAVE NL -FRHSAI CMMHAZIEW 
SSW EMBLET, RRELAIK ISL Fe SII SUF ULIFRIREE SE 
CEIERLTPSat, Leo CAM ey FOR PH SWARM, THEVA 
Micikavy PIHSVZRVWEWZ CERN EF, 


WwW wait for child process to die 


YAFAI—N FSWait FHTLC. FTULABKMTTZODR REET. F 
FaeRe—-DOMMLTTEUINILLI-TT, 

Hh, TERI (VFNDO) FPOLAMKRTLREBSIE*-005” OLIG 
EDT ULARGERRLET. 
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change data directory 


change execution directory 





CHD, ,CHXORKRICMVY2-NAY Ah SCheDir LET. RBLR EOI, 
BYDIVCY FOTNT (LBI EY EO Shell BHT TSEC) KAMTT, 


prompt ON 
prompt OFF 





‘OS9:" DFAUYFEBEWEOF WO “eof”? EMIT SPL) PELE 
yo Ci Shell RS ECHMTT. 


echo back ON 
echo back OFF 





avy RIAYSe (MMI —-MHAIC) BI-NyY AT SMPLEVM BEL 
#4, Shell M SHEE CHMCTH, 


exit if error ON 


exit if error OFF 





a? BR PRIRE E72 (SET IC EF PSH PAC Shell & PT R-bT SMD 
Lei mette LET. Cid Shell M THE CHMTT. 


SETPR set process priority 


FUL ADTFIAAVYVF 4 SREHLET, 


SETPR <VuerBer> <TIAAVFU> 
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DERCHELEF, DAF AIA—W F$SPrior FHITTF SRC. 
EX exit and chain process 


Shell HH eR SR HELREV2-VERMHMLET, DENY AFAI— 
Jv F$Chain &3{FT LES. LR CHE CS SOIT VHS EY) EV a— 
MINT C$ 

EX? 2H LMA CADPARERRLTLEMETDC, AVY EFIAYO 
FRY (SHALES NET. 


| KILL kill process | 


HEL RTA AICMLTFSKIY FHV ERY ET CELE TUR AE 
KILLULEGEFSZELI—-BERLEFL, Fae %1 (SysGo) cw ETK I 
LLLUEXEFSE” WHAT?” DX yeR—-VEMLET. 

RRL, YLAIFVERSRUCENUELD MESH T 6 META. 
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45 ers shai 








A ree caer ee 


SECU TRROLCEDLICLT, Shell DFUbh IAP Ro TAT, & 
$ Shell Off RFE EC TFARMISIA VE A— POREAES MAAS LIZL 
ane 

Shel BUGS T74VEA- PFE NFA-FRUELTHRPNR MEMO HI 
TAMEA- FRR AAIMBPNTARBAIC, SNIP YF FTSTNTOT 
TANMECHSEBRZSZCECT. LRM DTIAPY EF YVEDVOOHI$OD 
SMM AD EWG GUECLEM CET, (hic 77 EARLE DED Y 
Eo 

LRMRoTLO TH, AVY FAA VORMMOMIZIZ, TAVEA-FOAS 
MR LICP PD bEFAND RX -PREONY TPIIAE-LTWA, TAMER F 
RoR 64K PMICHSRZRODEDE-FHEWSMICLETF, 

ERIANMEA- FRAO PEMIITNENEACKMIONRANAY ARCA 
BLBACIIMIT Se RHM, H Shell PVF X-—PREHCLOOLDEL 
TROZDPHEVTIVMEDOROIML, SOHHSPGFL TAIN 
BES. DAVMEA-PREREGCOMBICOWTSFEMATLEIRPSUNE 
tho 

LOL, COCHSbDIZHS SC ECTIAURIATCHPSDL <A BVOZLLK 
HeOGSCLICLEL ES, 

PAVE A— FCM SS IVY FeMORME CIV § OPBIFTRELED 
LODI FTANADNI-—Y Vy FERNS —-F VRE TBKELED. 
HU aE TC Basic09 CfHEML THRONES CICPSMLET, 














7k pattern matching for wild card x7 
#include <stdio.h> 


#define YES 1 
#define NO O 


int match( s, p ) 7k string, pattern x~ 
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char Xs, *p3 


char xbrakette Oi 
int ©3 


for (3 Cc = X¥pt+i stt ) 
18 RG Se OK 
do ( 
if € match( s, p) ) 
return( YES )3 
) while ¢ xst+ D5 
return( NO )35 
) else if ( Xs) 
switch (Cc) ¢ 
case *[’: 
if ( (p = brakette( p, tolower(¢ *s >) ) ) == NULL ) 
return( NO 3 
break; 
case °*’: 
if ¢ XS == xXp++ ) 
return( NO )3 
break; 
case °?": 
break; 
default: 
if ( tolower¢ cc) != tolower( *s ) ) 
return( NO 3 
breaks 
) 
else 
return¢ NO > 
return( xs == *¥0" ) 


char xXbrakette( p, sc } 
register char xpi 
int sc; 


int mat, found, c3 


mat = ( Xp != **%? )? YES: ( pt+, NO D3 
for ¢ found = NO; xp && xp 1= °]'s ptt 
if ( pli] == °-" && pl2] && p[2] != "]*) ¢ 
if ( sc >= tolower( *p ) && sc <= tolower¢ p[2] ) > 
found = YES: 
p += 23 
} else if (¢ sc == tolower( *p) ) 
found YES; 
return(¢ ¢ mat found )? NO: (kp ? +#p: p) 03 
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4—5— 2. wsh 


match.c fio Shell OF Ob SA PTREVO ES, BAWISKIC wsh EV THB 
kT, 

CoCIAV Y FORME AD TIP SEW EICL, YH GIF Shell % ip 
BOEICLEF, DEYAVY FIL VEDTANFA-—F CHM LA DOTA 
2. Fo 0 FO¥#SF Shell CHT CLICLES, 

De) avy FORM id Shell HMHBL. BMSBZRIVY FI4AVRES 
¢ 9 Shell CHEF CECH, 

APCIVY EAA YORMMED? FED, —AMEZ ROAR Ie y Pa 
Th Sth, KROL ILAMAGAELET. 


1.chd,chx A*#EZ a, GEIR E ML EA.) 

2.420yY FROUMEISTI FIVE A-PREBORDDY 

RBAL TLEG. 

3.2 OP LACKIE L < ROMA LTS ONS RPL TLEG, 


AKYSAVAMETAMEA- FRAY TIES EVOL BAA THM, 
Biz CTANMEA- FRB CL EDRYACS wsh (LE & (TEL KE 
tA. LRBxTEOWRIORHM SNS IVY FFA VISRROM OEE, 
FAT PMRISBR LOM LHI BOIHOTLEITL EG, SOMITE 
ERBLTPSbs, 

wsh [x Shell OHMAIHZFERMLRODCIZVOCH, VEO hh} 
FEROS TSB EOD Shell (2B YS THATF SH, EL wsh Of 
6 Shell & tH) L TRASK CL EBER, HUwsh icbUS, Lovo fine 
BLTFSta, 
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7k wild card shell x7 
#include <stdio.h> 


#define YES 1 
#define NO O 
#define ERR (-1) 


char parbuf fer(BUFS1IZ13 
char inbuf (BUFSIZ]3 
char pattern{100]15 


mainO 

( 
FILE Xfp, X*fopend; 
int sherr; 


setbuf (,stderr, 0 )3 
fprintf<( stderr, “wshell¥n” )3 


fOr © 3Sadyak 
fprintf( stderr, “¥n” 3 
FOR AG iba Ab 
fprintf¢ stderr, “WSH:” )3 


if ¢ gets¢ inbuf ) == NULL) ¢ 
fprintf(stderr, “eof¥n” 03 
return 

) 

if ( kinbuf == °¥0" ) 
continue; 

if ¢ ( sherr = cmdline® ) != NO ) 
prerr( 2, sherr )3 

break; 


) 


int cmdline oO 
( 


char xp, Xq, Xxgetpatternd 3 


int ¢} 
xparbuffer = *¥0°$ 
p = inbuf3 


while ¢ Xp) { 
p = getpattern( p, pattern )3 
if ( Xpattern == °¥0’ > 
break; i 
if ¢ iswild( pattern) ) 
filematch( parbuffer, pattern )3 
else ( 
strceat ( parbuffer, pattern )3 
streat( parbuffer, “~~ 03 
) 
) 
if ( Xparbuffer ) ¢ 
return( forkshel|¢ parbuffer > )3 
) else 
return¢ NO )3 


int iswild¢ p ) 
Char X*p3 


int Ci 


while ( © = xp++') 
if Ce s= 'C' 11 ¢ == '# 11 © se 18" 
return( YES ) 
return¢ NO )3$ 


char Xgetpattern( p, q ) 
char xp, *qi 

6 
char Xskipspace © 5 
register char xs3 
int, os 


for ¢ p=skipspace (p) , 
xS = Xpi 

xs = °¥0'S 

return( p 5 


* (s=q) ="¥0"s (c=xXp) && Cc != 


char xskipspace<¢ p ) 
char xpi 


{ 
while © Xpt+ == * * ) 


return( --p )3 


forkshel|l¢ p ) 
char xpi 


int len, cids 

int status = 03 

pClen=strien(p)] = *¥n'5 

pllen+1] = *¥075 

if ¢ ¢€ cid = os9fork( “shell”, 
return( errno )3 

wait( &Status )3 

return( status )3 


lentt, Ps ty 1s 0) 


’ 


FAObSH4t TShell 


"3 Ptts St ) 


) == ERR ) 





7k file name matching xs 


#include <stdio-h> 
#define DIRSIZ 32 


filematch( buf, pat ) 
char xXbuf, x*pat; 
t : 
char xq, Xrindex 3 
If © Gq = rindex pats *7” 
xq = *¥0"S 
fmatch( buf, pat, q+l 5 
xg a tty 
) else 
fmatch( buf, “~.”, 


>)» && q != pat) { 


(kKpat=='7"°)? pat+1: pat )3 


fmatch¢ buf, plist, 
Char Xbuf, 


pat ) 
xXplist, *pats 
{ 

FILE xfp, *fopend; 

char xshapename ( 5 

long fseek 0 3 

char file(DIRSIZ]; 


if ¢ (fp = fopenc plist, “d* ) ) == NULL) { 
prerr¢ errno 03 
returns 
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fseek (fp, (long) (0x40), 0)5 
while ¢ fread( file, DIRSIZ, 1, fp) ) ¢ 
! if ¢( xfile == *¥0’ ) 
continue; 
} shapename( file )3 
; if (match( file, pat >) 
streat( buf, ~~ 3 
streat ( buf, file 5 


char xshapename( p ) 
char x*pi 

{ 
int is 


for ¢ i = 03 i < DIRSIZ-33 i++ > 
if ¢ pli] & Ox80) 1 
pli] &= Ox7f 
pl++i] = °¥075 
returns 
) 
p(DIRSIZ-3] = *¥075 
return( p 3 
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4—5—3 458 Shell 


SOE TT Shell OPM ISH D 72 E BET, SLCHKIETA LV EA BP 
FCA. FOMOBEAE BS HE LZ Shell (Fo TASOLICLEL ES, 
ESA eHKIET APCH, 


. FTANMEA-FK 
2 IVY BICC Fe PZ ES ICTS, 


_ FOYE RI PANMIZNGR —F RYZE IHS 
. TV Y FOUR-F ORES AAMAS, 





1) TLILVFA—K. BRE PIAS 

TAME A—FOMALAT OMNES CIERMLELE. LALIAVY RF 
ALERT L TREO, IVY ERRRS NAMIC T A EOF RE 
LREDETRHLTLEIDEMITSZ CL MCAERATLA, 

KRIAVY FTA 77S eT ERS HN ERAT LE, COC 
IVY EAA ve MGRIC MEL Ot bP TS EV GRRE LZCLICLE 
Fo MOIST 77 PMRENTHTH EVIL IZLEF, 

DEY, AVY EFA YP S61 MBFOMMML TK SAME Db LICTZOCH, 
2) FALL er PPC NGX-SRES 
Shell POY YyleNFR- PREF CL ESZEtD, AWAHHLOUL + 
FET, FCOUMERFSATAEL EG. 

NFA-PRBRT EOICSDESMMEHEL LE ANGA-PR’SVHY 
DBR (XENBB) CRI CLICLEF, BOSD R—FlE$ 1 CH IQNZZ 
—FIES 2CH. BONA —P(LHICADORHERFCLICLED, ERE 
PRONG X- FORE MA SHES LAMMANULLIC LEFT, 

PIZIX, test LVI KHMOF OLY Ye BRN EG RORLLETF, 


echo $1 $2 $3 
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CHE RMT ICIS, 
$ test abc def ghi 

DEFIZLEF. (CH'UTFAYT hb). FALEKOMHAMHSNSTLED.© 
abe def ghi 


3) AVY EOV—FIB 
POvyr7rr¢WlsEAF AV PV IH TBF CEES LEME 
Lik, MUICETE LV a -VEP-P FAV DVI TRER, CEE NAY 
REREAD (EIT CR EAA. CHIE) AEEO CHO £9 lewis 
Lik irs 

EVa-VOV-FOMBLELA Hr, DEY, 


1, €Ya—-wF4vV7phy 
2, ST TA VT bY 
oe Tees Fav ly 


PRL, 2. BIB TIEPEV 2-—UVCHSRPTAY VY > THEMEN OE 
tA 
Bil ZIF, window2% VISA 1A V7 bY ithe THUIZELVOTT, 
AMM 5 CHD, Hive) ORBAVRICEW ET. 


S&T, 2MShell O*F lz P-Shell © LES, (AVY Rls psh) GH, Pe 
DECDTTAWICPRML TILA NLEF, CHIST AT AAD BEE & 4 
ILAPRIT SRW CHS CMEC, MABE LU PF Ny TERBICTSROTT. 
Evy ENMU, PORES LT Us < FIC AH Z, SOIC 7 AH T 
WOREWVIORMENTCT. 

LOD TANDYA ABKRECUBEAYNANIA HOKE 6 GOTLE 
WET. WK OMOT TAMIA THVT. SLERDTF NY TET ETT 
AMIDA YOY BF-PTNMAT LY 27 bICBELTHIITYN YA7T SIT 
A WPSH AZ STEIFC, ALANANTSTTANOPA AINSEVSDEBVIET. 
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EVLRGMPAN y TREC. 
Cl, AA YIU-F Yb, BRED OIC LCS SC LICLEF, 





7k prototype shel | xs 
7* usage: psh <internal> (parameter). 


refer to parameter as °$1°. ( ’$0’ always means “psh” ) 
replace wild card with match file name. 


internal command: 


p prompt ON. 

“Pp OFF. 

t terminal echo back ON. 
Bt OFF. 
x error exit ON. 

=x OFF. 

* comment - 


chd <pathlist> change data directory. 
Chx <pathlist> Change execution directory. 


pw print data sirectory. 

px print execution directory. 

WwW wait for child process to die. 
kill <process> kill process. 


setpr <process> <priority> set process priority. 
ex <pathlist> fork and exit. ( difficult to Shell > 
xs 


#include <stdio.h> 


#define YES 1 
#define NO 0 
H#tdefine ERR (-1) 
#define EQUAL 0 


#define SIN 0 
#define SOUT 1 
#define SERR 2 


char parameter ([BUFS1Z*213 7k module parameter *7 

char inbuf [(BUFSIZ]3 7* input buffer xs 

char pattern{BUFSIZ1; 

char wpos(256]3 7* data directory x7 

char xpos{100] i 7x execution directory x” 
unsigned datsize = 03 7* data area size to fork */ 
int prmpt = YES: 7* prompt flag xs 

int termback = NO: : 7k echo back flag xs 

int exiterr = NO: 7k error exit flag x 

int sigcode = 03 7* signal code x7 

int stdtbI[3] = ( 0, 0, 0 }3 “xk redirect table xs 

char *pnts 7k pointer to command line x7 
int) npar = 03 7* number of arguments x” 
char *xXpar3 7k pointer to array of arguments */ 


intrupt. sig ) 

int sigi 
{ 

sigcode = sigs 
) 


main( argc, argv ) 
int argc: 
Char x*xargvi 


FILE xfp, *fopen® 3 

int intrupt O03 

char *index © 3 

int count, sherrs 

int is ‘ 
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setbuf ( stderr, NULL )3 
intercept ( intrupt )3 


if ( sherr = option( argc, argv ) ) 
exit ¢ sherr )3 

—~pars 

par(0] = arav(Ols 


pwd¢ wpos, NO )5 
pwd( xpos, YES )3 


if ¢ prmpt > 
fprintf( stderr, “pshell¥n” )3 
for C33) 4 
if ¢ prmpt > 
fprintf( stderr, “¥n" 3 
for C +7 2 6 
if ¢€ prmpt ) 
fprintf<( stderr, “$ ~ 05 . 
if © (count=readin( SIN, inbuf,sizeof Cinbuf))) == ERR) 
if ( errno && exiterr >) 
exit¢ errno )3 
else if (€ errno) 
prerr¢ SERR, errno )# 
continues 
) 
) else if ¢ count == 0) ¢ 7* EOF x7 
if ( prmpt ) ¢ 
fprintf<( stderr, “eof¥n” )3 
returns 
? else 
returns 
) 
inbuf(count-1] = *¥0’5 
if ( termback ) (¢ 
fputs( inbuf, stderr )3 
putc( *¥n’, stderr 05 
) 


if € Kinbuf == *¥0’ >) 
continues 
if ¢ (Sherr = cmdlineO ) != NO) ¢ 


prerr( SERR, sherr )3 
if ( exiterr > 
returns 
) 
breaks 


int option¢ argc, argv ) 
int aracs 
char *xargv3 


int emderr 3 


while ( --argc ) ¢ 
pnt = *++argvi 
if ¢ € emderr = intcomm® ) == YES ) 
continues 
else if ¢ cmderr > 
return( cmderr )3 
else 
breaks 
) 
npar = argci 
par = argv; 
return¢ NO )3 





HENS (TRIO wsh & D0 $A, LPLATY a VORA BODUB 
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CoO SI. COCHIATY seh Wi peroroue Seu cwe 
To 

CA3ZDLTN SM prmpt’, ’termback’,’exiterr’ £35 FANART ITC 
BLES, ERENEHNIC MIME S-2EnNET, 

DEN MHOIAVSY FEL CHET SHICIZ, VOLT hERRL, ANTO 
BIN y TET, LI-VPRELTART LEAVES Reo THEFT, CW 
6ltNmavy FickotCPHCREF, 

AA YN—-F VE 200 for MCHENKBIETTHETR, COMTI 
FOAL, PARLTRSEF. CHIEFY YINVLIELALME CS, 

LOREM I Old, pshhliS1MRIMIVY FELTIRMZ HEV S 
ECT. DENAY YHWO Shell (S77 Y avERIAMISY FLADID 
ENIX-PEETRUIZ, TOIAVSY FEKRATSRU CHT LTLEWEF 
mM. psh lZ-NAX-FEULTHHMEBIGA LL FOAALTWR 4 S—FLEN F 
TF. 

CHIT OY Y HINA A—-PRMTFCLEBCRZLIIFSZROTCH, Fu 
VY EWI) OILRRCKTT SOs pshAH C% PavyreNdnlsenie 
WT SEBEA HIST SEO OCTR, SOT AYY elONF RX —P KHEF LVS 
CELL ONDA-PRAVPY FELT, EHIAPUMHBLTRT LEOTIZ 
ETWVONCTH, 

FAY DS + DRM L(SRMIICKO EG ICRF CLE BCREF, 


psh parameter <_ procedure_file 


<M parameter @ RHEL TILM TL EDROTCITFAY Ye ICHEBEAONTH, 

AY PPM Shell CI PAY Y elONF K-— PH RIEF LL EEA TRO 
CT. parameter Mii IVY RRMA EVA, IVY REBEL OOC HI 
SebB74NICHSE Shell (SHIRL, BMA NDS 1G HKOHAAA CH 
C<butFt. 

KlSShalMlS 7 VY Y vicHLT’-P “EVI NDA-FBEATAERFP 
CH LoTPOY Pel FOYTbhEMST, ZTI-BH REP R-bTS 
EIKZVTWSENTH, CHiISHBLCLE TCT, 
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CIERIZT OY VRAD NGR—F BMT BHC T. TAIT MAMI arge 
k argv RHIC LICL ET. DEN BOND —% liargv [1]. BIN7 2 - 
it argv[2] CT. 

CO CULDELR CAEL E55 REBT OV YS ICP! X Pew Aa r= 
PREZELEMRECH SEMAKNIY) CHM, THILE CIMT LOO 
GE bets 

BAOYPNFL-—PELTHLODERML TRE LUNES EE< EYE 
+, MBL LT. KHETSDIEHWHEL FTIR DEVE CHMLO OT, psh. 
sR ee LEA, 

DENN K-IORBMICH SAT Y averRisAmavy Fis, $1, $242k 
DRO OIEFLET. FAV Y + ERAT SBITIIAZ—FUERARANIA-IF 
DBIL’—p x "LONI SMERBEL, THENTA-FELTpsheKMTS 
BO WOU. 

(5) ZIFIEM test TC, 


$ test t chd /d0 abc def ghi 
EDSL, psh (ClLKONF &-—- PRGA BN, 

—p x t chd /d0 abc defs ghi 
gr $2. $3 EL C3 

abc def ghi 


LWA DOMBSLNET, 

= DH F SOA PY option CF. option (+ 1 MOAR AVY FERS 
BK intcomm +, Wik avy ke MOPS. eSETHUMLET. COM 
WTS &OCPAE LT argv SIMIC ATOR ET A, HHI SAMA Y 
RCRD CLICEV ET, THE$SLETNIEE VHT, 

RNIRL—P RIT HRA v PHUMETO—PSIVIE LT BS DRMH SRY, arge 
tarevDEECHS, npar sk Uparic aU -LTBSET. 

MIE ONS L-—I CHM, BRT DY Y re BADPERTNEZOTIA, 
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PAY VOPR S TAY Yr KREMS HEME O, EPLTATF AVY y 
PICLEVEFARSMMT SNCATY aVELTHATREZIFNITS 0 EF 
tA, LOLI pshh DKA LIT EGIL THEELKA. 

STRAY NM-FVELTIEOD I HOA YI FT HOLE SHU SHUTS 
REDA, PHOIVY PRT Cb IY bR-VESZETCTR-ELTL 
EVETD, MEST R-bULTIAY) ETD CHEDOMAAICMT SbF 
yPRARLTBEPRINERSZVOCH CHAT Y ay’ x’ie ko Til 
SHENLEY) EA, 

PRVYTFUNNVCEYAFAI—WN FSlept CkoTCNERHRLE FAC 
CEC MICHA SBA intercept FAW ET. AY IFT hBRELAMD ML 
He > J BYRD’ intrpt CF. main Cli intrpt & intercept ~M5lRKe LTH # 
TOC, BEPLH, 


int intrpt() ; 


CHSBLTHEPEIHITEY) FRA. 

intrpt (i4 VIFF ROI— FEF ANWR sigcode ICHKATF SWC 
+. return Cf #3 LC b MRM SLICER LT PS. 

sigcode Mffilk LPANASHFICF 2 y7LET, 

7B, AT fgets C%< readin HHL TW 4VId, fgets Pil 2 1F 1 [ala v 
hRE-VERANS &LBEMICMHEL T 6 EEG TERE BLOOM 
mCT. 

Bae pwd ISVs TACT HM LET. 





7% get one pattern from ‘pnt’ xs 


char x*getpattern( q ) 
char *q3 
( 
extern char Xpnt3 
char xXpat, *skipspace 0 3 
int C, quate; 


pat = qi 

if ((c=x (pnt=skipspace (pnt))) ==’3 7 llos='’&? Ilos=?! iics="<?llcs=’ (1 loss’) *) ( 
++pnts 
Xqt+ = C3 
xq = *¥0"5 


return( pat )5 
» else if €c¢ == 7") 4 
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xqt+ = C3 
NM Cpntlty =e 0 
Kqt+ = 775 
++pnts 
) 
++pnts 
xq = *¥075 
return( pat )3 
) else if ¢ ( quate=c) == '¥*’ Il quate == ’¥*? ) ( 
xq++ = quate; 
while (€ (c=X++pnt) && C != quate ) 
xqt+ = kpnti 
if Oe) 
pnttts 
xq = °¥075 
) else ¢ 
while ¢ (c=Xkpnt++) && cl=’ * && cl=73” && cl=’&’ && CH="!’ && Cl="<’ 


&& Cl=7>? B& CH=7(’ && CH=")? && ClH="H” B& CH="¥"” && CH=’¥’” ) 


xqt+ = OF 
——pnt3 
xq = °¥O"S 

} 

return( pat )3 


Char *skipspace( p ) 
register char xp; 

{ 
while ( Xpt+ == 7 7 ) 


; 
return( --p 05 





getpatten (Z92V7Y FA4YHH LMSW MS RACS. 


WRIA RO) LAGLETHM, SING a —-hb ERY YTV 4—} 
BHSBRIE, HUZOZ + —bRPHDNAMERILTRICES ECERY) HL 
Ed, COMRMOZT + -—bdeOREODEKLETM, Child, TV-EVT 
CHEMO PICA SMBS SBICL Za — bE RO TLED DUI 


Zarb CT o 





ox analize one command | ine xe 
#include <stdio.h> 


#define YES 1 
#define NO O 
#define ERR (-1) 
#def ine EQUAL 0 


#define SIN O 
#define SOUT 1 
#define SERR 2 


int cmdline ¢ 
( 
extern char parameter(], inbuf(], pattern()s 


extern int sigcode, datsize; 
extern char *pnt3 
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) 

if UC h MA 7* brakette incorrect x*/ 
fprintf<¢ stderr, “WHAT? illegal N.¥n~ 03 
stdback 0 5 
return( NO ) 5 

) 

streat( strepy( stdline, parameter ), “¥n” 03 

x*parameter = *¥073 





FOr ic 533 8) 

p= pnt? 

c = xgetpattern( pattern )3 

if € cH=’¥O’llc=='s’1lc==’&? lics="!"llo=='#? 1 lc=="*<? Vice ae XG 
pnt = p3 
break; 

} 

if ¢ € cc = Xpattern ) != °¥”"?. && c != *¥°* && iswild( pattern ) ) 
filematch(¢ parameter, pattern )3 

else 


setpattern( pattern, parameter )3 
) 
tf emderr = redirect > ) 4 
close¢ pn )3 
stdback 0 § 
return( cmderr )3 
) 
tf ¢ redirpath< SIN, 3, “7pipe* >) ) ¢ 
fprintf( stderr, “WHAT? can’t Open PIPE.¥n* )35 
stdback © 3 
return( NO 3 


) 

pn = dup( SIN )3 

if Cwrite¢ pn, stdline, strien¢ etdline 
fprintf( stderr, “error #%03d.¥n”, errn 

close¢ pn )3 


ov 


strcopy ( modname, “psh” )3 
.Strcepy( stdline, parameter )3 
strcat ( strcat( strcpy( parameter, “-p -t x ~ ), stdline >, “¥n” 03 
if ( Cmderr = separater( getpattern( pattern ), modname, parameter ) ) ( 
close pn )3 
stdback 0 3 
return( cmderr ) 35 


) 
stdoneback¢ SIN )3 
return( NO )3 


#include <ctype-h> 


setpattern( p, q ) 
char xp, *q3 

{ 
extern int npars 
extern char *xkpar3 
iAL Ay CF 





if ¢ €C = Xp) == *¥"* Ile 
++p5 

if ¢ Xq ) 
streat¢ q, ~ ~ 03 

qg += strien(q)3 

while ( Cc = xXp++ ) 


if (Cc == °¥¥’ && Xp != "¥O" ) ( 
Xqt+ = Xp3 
ptts 
) else if ( c == '$’ && isdigit( Xp) ) ( 


if € Cn = axtoi( &p ) ) <= npar) ¢ 
strepy( q, par(n] )3 
q += strien (qi 


) 
) else 
kq++ = C3 
xq = °¥075 
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int axtoi( ap ) 
char *xap3 
{ 
char xXp5 
lint ‘A. C3 


aps 
n 


tH 
3S Ax 


ie) 


* ->U 


= 03 iSdigit( c = Xp )3 pt+ ) 
nk10 + c - 7075 

ap = 
return( n ) 


int iswild( p ) 
Char %*pi 


int C3 


while € c = Xpt+ ) 
ie Ckcreek HN Go ASS Oe See 8 
return YES. >¢ 
return¢ NO )3 





cmdline (42-VY FF4 VOL TEMS SBBCH, 

LTO MAD FMUSS CleMNELR. COC for V-POPES OI N Ie 
WAT LTRET, THbOEKADIBD CT, 

LODIVY FOMDPT & ta 4 iz B72 THF, modname & parameter bk 
U datsize. sigcode &7') PLEF, 

KO Zl IVY Fe MT SRICVBR IOC, BX OMFS Bl L ¥ 
TACT A-NVELTHI EF, 

sigcode (tH iC Let YF FP ROA-—ERMAAZILOCTH, 


Aum 2vy S 















Le i ile aal 
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eT AKIvy FeMEL EST. BK internal (i pnt FHT 7 CA Y 
Fete (4S # TC intcomm SFU LCR LTH SEF. bULAMIVY F 
LOLPOROACHNILIS THY EF. 

ZOKOMMIAIVSY FRCEWINEE) EHADT, KKH getpattern T 
modname [C2 7YEREMOMLET, SLOMA’ CCHMIX, THIET — 
EVTOMEXD LAGLET. 

PV-EVTICEPORLBR, EFISAVILMHSPEGMPERET. F 
LT, VIRVIRDPRNL—PERISTROHL DNS ECING X-—ITT 
LOC 2MMOBSRMZELAINIIELD ERA. TA VEA-FEFAYY 
PNFR-IHCTE, EHHTHAUINIM) LRM —OF parameter Ic 
HME LTRIIZEMdbUICH, RELAICFAe LOMO ET. 

ETMBOMITA VE A-EREMRENTRSPED MEM, FLHN 
\¥ filematch "EO, Zlttl¥ setpattern HUES, 

filematch [3-9-2 BRM PWS 74 IV FA F CIRBAL. parameter (c Beit 
+AMRCH. setpattern (S7OYY pF X—F7 BBW LEM BBL TH 
(£9 parameter Ic fEwET SAC T. 

PFR—-FI DMP M5 EYSA VT b MRM SS 72H (Cc [AM redirect 
LIEU F, redirect (4) 7TH VF OMB LK HICLEAP-FLVY PHA AO 
eR L ET. 

FETRIZ CON — FY DWLIBPYA CH S separater 29PUEF, Avy FORMHIS 
=D separater C{TONETFT. 

setpattern (i CPW LREFOMCRoT EUS RHNITT AY v7 
R-FEMMLCPOKM 1 OH REBEL LT par PER PEAM EK) MLE 
J. DLEMMPD npar LYKSPORYRIIMMLET. 

7B, setpattern CLAT—-PXYF7 WE OMRE IT 2THET. 





7k separater x 
#include <stdio.h> 
#define YES 1 

#define NO O 

#tdefine ERR (-1) 


#define SIN O 
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#def ine SOUT 1 
#define SERR 2 


int 


{ 


int 


int 


int 


int 


separater( sep, modname, parameter ) 
char xsep, *modname, *parameter3 


if ( *sep == *¥O’ I1 stromp( sep, “3” ) == 0) ( 
return( sequential ( modname, parameter ) )3 
) else if ( stremp( sep, “&" ) == 0) ( 
return( concurrent ( modname, parameter ) )3 
) else if ( stremp( sep, “!” ) == 0) 
return( pipeline( modname, parameter ) )3 
) else 


return( ERR )3 


sequential ( modname, parameter ) 
Char Xmodname, xparameter; 


int cids 
int segerr = 03 


if ¢( € cid = fonkcmd< modname, parameter ) ) 
return( errno )3 

stdback © 3 

segerr = sigwait( Cid )35 

return( segerr )3 


= ERR ) 


concurrent ¢ modname, parameter ) 
char xmodname, xparameter; 


int cids 


if ¢ € cid = forkemd¢ modname, parameter ) ) == ERR ) 
return( errno )3 

stdback © § 

fprintf¢ stderr, “&%03d¥n”, Cid )3 

return( NO )3 


pipeline modname, parameter ) 
Char xmodname, xparameters 


extern int stdtbIi(]; 
int cid: 


if « redirpath( SOUT, 3, ““pipe” >) ) ¢ 
fprintf<( stderr, “WHAT?¥n” > 3 
stdback 0 3 
return¢ ERR )3 
) 
if © € cid = forkcmd( modname, parameter ) ) == ERR ) 
return( errno )3 
if ( stdtbI(SINJ == 0 ) 
stdtbi [SIN] = dup¢ SIN )¢ 7* escape */ 
close¢ SIN )3 
dup ¢ SOUT )3 
stdoneback ¢ SOUT ); 
return(¢ NO )3 


Sigwait( cid ) 7k wait for cid die, if ( cid == 0) wait for any */ 
int cids 


extern int sigcode; 
int status = 03 
int xcids 
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FOF Cutt. D- of 
xcid = wait ( &status )3 
if ( !sigcode ) { 
if ( xcid == ERR I! cid == xcid ) 
return( status )3 
else if (cid == 0 I|I Status) 
stdback 0 3 
fprintf( stderr, “-%03d¥n~, xcid )5 
return( status )3 
) 
) else if ¢ sigcode != 2 11 cid == 0) 
return( sigcode )3 
else ¢ 
kill ¢ cid, sigcode 3 
cid = OF 





ERIC avy ke Fork FSDiLe NV —Y BHARTI SECT, eeNY—-FIe 
(3.3 MERA CT. SN EHICIY UT sequential, concurrent, pipeline 2 "FU L 
EFT, AVY EO Fork (SS 5610 PHI OMRTCS 6 forkemd ICEMRET, 
sequential & concurrent Cld, Fork L2RCE NDF ALADHET TAD HO 
DETTE DOIEY TC LDH) KA. pipeline (SHMEA HM NOW Y ez & BRIT 
\¥ concurrent E{WTWRETS, 








7x fork command x/ 


#include <stdio.h> 
#include <module.h> 


#define YES 1 
#define NO Oo 
#define ERR (-1) 


#define SIN 0 
#def ine SOUT 1 
#define SERR 2 


int forkcmd( modname, parameter ) 
char xmodname, xparameters 

{ 
extern int datsize; 
extern char wposl], xposl]; 
char *modexec, *linkload 0 
int pn, cidi 
static char redfile(BUFSIZ]; 


if ( Xmodname == *¥0’ ) 
return( ERR )3 
streat ( parameter, “¥n” )3 


7k memory module x*~ 
if © ¢ modexec = modlink« modname, 0, 0) ) !=ERR) ¢ 
if ( modexec(6] == Ox11) 1 
cid = forkmodule( modname, parameter, datsize )i 
) else if ( modexec(6] == 0x22) ( 
strcpy( parameter, strcat( strcat ( modname, 
cid = forkmodule( “runb”, parameter, datsize )i 
) else 
return( ERR )3 
munlink¢ modexec )3 
return( cid 03 


>, parameter ) )5 
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7k execution or data directory x*~/ 


if € € pn = open( modname, 4) ) != ERR) ¢ 
if ( Xmodname != ’7’ ) 
streat ( strcat ( strepy( redfile, xpos ), “”” ), modname ) 5 
) else if ¢ ( pn = open( modname, 1) > != ERR) ( 
if ¢ Xmodname |= *7* ) 


streat( streat( strepy< redfile, wpos ), “7” ), modname ) 5 
) else 
return( ERR )3 


if ¢ € modexec = linkload( pn, modname, parameter, redfile ) ) == ERR) ( 
close¢ pn 05 
return¢ ERR )3 

) 

close(¢ pn )3 


if ( Xredfile == °¥0” ) ¢ 7* module x*/ 
cid = forkmodule( modname, parameter, datsize )3 
) else 1 7* procedure x*/ 


redirpath( SIN, 1, redfile )3 
strcpy (parameter,strcat (strcpy (redfile,”“-p -t x “) ,parameter)) + 
cid = forkmodule< modname, parameter, datsize )3 
stdoneback ¢ SIN )3 
) 
muntink ¢ modexec ) 3 
return( cid )¢ 


char Xlinkload¢ pn, modname, parameter, redfile ) 


int 


int pns 
char xmodname, Xparameter, xredfiles 


char *modexecs 

int) cids 

struct 
unsigned sync, size, name; 
char tylIn, atrv, hp3 

) headers 


if ( read( pn, &header, sizeof (header) ) == ERR) ( 
close¢ pn 05 
return( ERR )3 

) 

if ¢ header.sync == Ox87cd && header.tyln == Oxl1 ) 
xredfile = *¥0°3 
modexec = modload¢ modname, 1, 1 )3 

} else if ¢ header.sync == Ox87cd && header.tyln 
strcpy( parameter, strcat(¢ strcat ( modname, > 
modexec = modlink« strcpy( modname, “runb” >, 0, 0 
xredfile = *¥0°3 

» else if (¢ header.sync == Ox87cd ) 
return( ERR 035 

else ( 
modexec = modlink¢ strepy( modname, “wsh” ), 0, 03 





a) 
parameter ) )3 
3 


) 
return¢ modexec ) 3 





forkmodule( modname, parameter, datsize ) 
char Xmodname, xparameter; 
int datsize; 


int cids 


if ¢ (cid=os9fork (modname, strlen (parameter) ,parameter,1,1,datsize))==ERR ) 
return¢ ERR 03 

tsleep( 1 )3 

return( cid )3 
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modname, parameter, datsize & ) LIC LTRANRKEV a-VERH SE 
J, MPDWPFEINIEH 56 EVOls, modname CH ZENKIVY FABEODE 
HMHTNKREV2-VALIMEEVLWIMTS, 

¥F modname %% LICEYVa-NFAVIALYVERLET, 

STOCOCERMMDAZDCT, EVa-NWITA NCH DTT AYY 
PrANMCH 2TH ZVRAUVEFGICRORVDUCTA EVa-NITPA 
MEP-PPAVAbVICH SWRA, MBICILAEZOOCT. 

DENEVa2-NIT AMIE, EV a-NP4VvZ PVA FLRGNTS 
bRWO(, YVAF AAW FhLoad (SKIT 4 V7 bVICHLETA-FFTSS 
JiczwoTr4ZONCT, RRLEEUVNAYVALSESARABAM COM) Tid 
DECAA, 

Leeds T Load FHSRMITILTERENAYV ALE Fo TRORUINITE HOS 
BACT, Clk pxd IVY FEMBOMROBBSEWWICECH, 

&T, Basic09M I-Code ME GICFY IF ANV-FYEVREFSZEVa-N 
fo RBe ilk, modname ¢ parameter FHL RED EP RICINT X—-# 
parameter EL TIVIL{AV—-FYOH*e Fork LVEF. FOYY er 7 PAM 
orRwBe ls modname D7 7 4 Ve RMEAH ICY YAVUZ |} UT psh & Fork 
L#t2’, Parameter MAIC” —p —tx "EMR EDENTA-HELTHHL 
EF. CMEJFINFA-FOHNCH ECAP Y av et M2z Th LVvols, 
pshhOX 4 YM—-FYREDE FICHE LEDS CT. 


7k get working directory x7 
#include <stdio.h> 
#define ERR (-1) 


static char dirl32]3 
static int exec: 


char Xpwd( p, ex ) 
char *pi 
int ex 


( 
FILE xfp, *fopenQ 3 
char *getdevQ, xpwdir QO, x*edir Os 
long parent, selfs 





exec = ex} 
if ¢ ¢ fp = fopen<¢ *.”, cdir (exec) >» » == NULL ) 
exit¢ errno )3 
fread( dir, sizeof dir), 1, fp >s getinode¢ dir+29, &parent )3' 
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fread( dir, sizeof (dir), 1, fp >s getinode( dir+29, &self 5 
fclose( fp 5 

change( “..~, exec )$ 

xp = *¥075 

pwdir¢ p, self 3 

Change ( p, exec )3 

return( p )3 


char x*pwdir( p, myself ) 
char *p3 
long myselfs 


FILE xfp, xfopend; 
long parent, self, current; 
char Xgetdev©, shapename®, xcdir Qs 


if ¢( ( fp = fopen( *.”, cdir¢ exec ») ) ) == NULL > 

exit ( errno )3 
fread( dir, sizeof(dim), 1, fp 3% getinode¢ dir+29, &parent )5 
fread( dir, sizeof(dir), 1, fp )3 getinode< dir+29, &self 05 
while ( fread( dir, sizeof(dir), 1, fp >) ¢ 

if ( Xdir == °’¥0” > 


continues 
getinode( dir+29, &current )3 
if ¢ current == myself ) ¢ 


shapename( dir )3 
precat( p, dir )3 


break; 
) 
} 
if ( parent == self ) 
precat( p, getdev( fp, dir) )3 


else ( 
change( ~..”, exec )5 
p = pwdir¢ p, self )5 
) 
fclose( fp 3 
return( p )3 


precat( p, q) 
char Xp, *q3 
{ 
static buf (BUFSIZ15 


if (Xp) 
streat ( streoat( strepy( buf, “77 ), Gq), Pp )3 
strepy( p, buf 5 

¥ else 
streat( strepy( ps, “77 ). a5 


7k getinode¢ p, Own) X/ 
“* char Xp3 x7 
7k long x*owns x7 
#asm 
get inode: 

pshs x.y 

Idx 6,S 

Idy 8,5 

Clin ay 

Ida ,x 

sta ly 

Idd 1.x 

std 2,y 

Idd #0 

pulS x,¥.pc 
tendasm 
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#include <os9.h> 
#define SS_DEVNM 14 


char Xgetdev( fp, p ) 
FILE xfpi 
char pl]3 

{ 
struct registers regi 


reg.rg_x = pi 
reg-rg.a = fileno( fp )3 
reg.rg_b = SS_DEVNM; 


if (¢ _os9( I_GETSTT, &reg ) == ERR 
exit ¢ errno )3 

shapename( p )3 

return( p )3 


char xXcdir( exec ) 

int exec: 
{ 

return (exec)? “dx"> “d* 03 
) 


int Change‘ p, exec ) 

int exec: 
{ 

return ( (exec)? chxdir(¢ p>): chdir¢ p>) 3 
) 





AVYEFAVIBYDERENAYARERDOET. 2 51RE LT 0 WE 
PURBRMP-F FAUT RV EL ENUAOURILEA 47 bY BORD 
= oP 

EENAYRERERDO SR OIL BDV EFAVTA bY PSL YAVSF IO 
Ika Ta, FAVIRYUT TAMERLTH KC LAPEER S UEA. 
ERM bh PAV bY ORB ES IC ITHEO S—-IDYAFAI-NTCH 
Sj getstt PHF LET. Verv7vavBe14 (SS_DEVNM) #424 
LNA CRENAF AVI RY DFA RFA AAV SFP RERLTTEE 
aT 

BBA VIF VORP pwd SFO L THRO, avy FRO Hc 
pwd SPO lZMALOC. BIC Y bFAVT VRE OTRRE EID 
CBrARRPoSEOCTR, PL THLSIDMLEPELNETA, 














ok redirect Ke 


#include <stdio.h> 
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#define YES 1 
#define NO O 
#define ERR (-1) 
#define EQUAL 0 


#define SIN 0 
#define SOUT 1 
#define SERR 2 


int redirect 0 

{ 
extern char Xpnt, pattern]; 
Char *p, XgetpatternO § 
int rederrs 


for € 433.) 4 
Pp = pnts 
getpattern( pattern )3 
if ( stremp( pattern, “<* ) == EQUAL ) { 


if ( rederr = redirpath( SIN, 1, getpattern( pattern ) ) ) 
return( rederr.) 3 
) else if (¢ stremp( pattern, “>” ) == EQUAL ) ( 
if «( rederr = redirpath< SOUT, 2, getpattern( pattern) ) ) 
return( rederr )3 i 
) else if (¢ stremp( pattern, “>>” ) == EQUAL ) { 
if ( rederr = redirpath( SERR, 2, getpattern( pattern) ) ) 
return( rederr )3 
) else if ( Xpattern == "#7 ) ¢ 
if ( rederr = datchange( patternt! ) > 
return( rederr )3 
) else { 
pnt = p3 
break; 
) 
) 
return( NO )3 


int redirpath( pn, mode, q ) 
int pn, modes 
thar *q3 


extern int stdtbi(J3 
int temp; 


if ¢ stdtbl[pn] ) ¢ 
fprintf ( stderr, “WHAT?¥n” ) 5 
stdback 0 
return( ERR )3 
) 
if € ¢€ stdtbl(pn] = dup( pn) ) == ERR) (¢ 
stdtbi{Cpn] = 03 
stdback 03 
return¢ errno )$ 
) , 
close¢ pn )3 
if ( pn == SIN && ( temp = open< q, mode ) ) != ERR 
return( NO >3 
else if ¢ € pn == SOUT I! pn == SERR ) 
&& ¢ (temp=creat (q,3))!=ERR I! (temp=open(q,mode))!=ERR) ) 
return( NO )3 
else ( 
temp = errno; 
stdback © 3 
return( temp )3 


int stdback 0 


it. prs: 
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for ( pn = 03 pn <= 23 pntt+ ) 
stdoneback ¢ pn )3 
return< NO )3 


int stdoneback( pn ) 
int pn3 


extern int stdtbI(]3 


if ( stdtbi{pn] > ¢ 
close¢ pn )3 
dup( stdtbIl {pn )3 
close¢ stdtbi [pn] )3 
stdtbif€pn] = 03 

) 

return¢( NO D3 


#include <ctype.h> 


int datchange( p ) 


char xp; 
{ 
extern int datsize; 
int «3 
if ( datsize I! xp == ’¥0" ) ( 


fprintf( stderr, “WHAT?¥n” > 5 
return( ERR )3 

) 

while ( c = xpt+ ) 
If ¢ isdigit¢ cd > 


datsize = datsizex10 + c - '0°3 

else if (¢ tolower( c ) == ’k’? && Xp == ’¥0” ) 
datsize <<= 23 

else ( 


fprintf ¢ stderr, “WHAT?¥n” )35 
return¢ ERR )3 
) 
return( NO )3 








YIAVTRIMLNREGOT YIRZOVR CHS OLS fopenZUOT 
TAMA YPICESAMIILT DT, SRBESICLAAMABRE HALT 
WET. 
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YITRVF bORKATF Cl THY EFOCLS TTR LEA. 


7k internal commands 


#include <stdio.h> 


#define YES 1 
Htdefine NO O 
#define ERR (-1) 
#define EQUAL 0 


int internal © 
{ 
int cemderrs 


while ¢ cmderr intcomm® ) { 
if € emderr == YES ) 
continues 
else 
return(¢ cmderr )3 





) 
return¢ NO )3 


#include <signal.h> 


int intcomm © 
( 
extern char pattern(], wpos{], xpos(]s 
extern char Xpnt3 
extern int stdtbIills 
extern int datsize, prmpt, termback, exiterrs 
char Xp, xgetpattern®, *lower 03 
int tid, pn, cmderrs 


p = pnts 

lower ( getpattern( pattern ) )3 

if ( stromp¢ pattern, “p”~ ) == EQUAL > 
prmpt = YES3 

else if ( stremp( pattern, “-p” ) == EQUAL ) 
prmpt = NO3 

else if ( strcemp( pattern, “~t”~) == EQUAL ) 
termback = YES: 

else if ( stremp¢ pattern, “-t*~ ) == EQUAL ) 
termback = NO3 

else if ( stremp( pattern, *x” ) == EQUAL ) 
exiterr = YES3 

else if ( strcomp¢ pattern, “-x* ) == EQUAL > 
exiterr = NO; Se 

else if (¢ stremp( pattern, “pw* ) EQUAL ) 
fputs( wpos, stderr )3 

else if ¢ stremp( pattern, “px” ) EQUAL > 
fputs( xpos, stderr )3 

else if (¢ Xpattérn == °x* ) { 
while ¢ Xpnt++ > 

3 

——pnti 

) else if ( stromp( pattern, “w* ) == EQUAL ) { 
if ( cmderr = sigwait¢ 0) ) 

return( cmderr )35 


) else if ( stremp( pattern, “Chd” ) == EQUAL ) ¢ 
if ( chdir(¢ getpattern( pattern ) ) == ERR ) 
return( errno )3 
if ( Xpattern == °7’ ) 
strepy( wpos, pattern )35 
else 


pwd( wpos, NO )3 
» else if ( stromp( pattern, “Chx” ) == EQUAL ) ¢ 
if ( chxdir( getpattern( pattern ) ) == ERR ) 
return( errno )3 
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if ( xpattern == ‘7’ ) 
strepy( xpos, pattern )3 
else 
pwd( xpos, YES )3 
) else if ( stromp( pattern, “kill” ) == EQUAL ) { 
if ( (tid = atoi( getpattern( pattern) )) <= 1) ¢ 


fprintf¢ stderr, “WHAT?¥n” ) 5 
return¢ NO )3 

) else if ¢( kill¢ tid, SIGKILL > == ERR ) 
return( errno )3 


) else if ( stromp( pattern, “setpr”~ ) == EQUAL >) ¢ 
tid = atoi( getpattern( pattern ) )35 
if ( setpr( tid, atoi( getpattern( pattern ) ) ) == ERR ) 
return( errno )3 
» else if ( stromp( pattern, “ex” ) == EQUAL ) ( 
if ( kgetpattern( pattern) == ’¥0’ I! cmderr == redirect© > 
return( cmderr )3 
if € modlink¢ p, 1, 1) == ERR) 


return¢ errno )3 
for ( pn = 03 pn <= 23 pntt ) 
if ¢€ stdtbifpn] > ¢ 
, close¢ stdtbIl [pn] )5 
stdtbIl [pn] = 05 
) 
strcat ( pnt=skipspace (pnt), “¥n~ 5 
chain( p, strien(pnt), pnt, 1, 1, datsize 3 
exit ( errno )5 


1 else ¢ 
pnt = ps 
return¢ NO )3 7k not an internal command */ 


) 
return( YES )3 


char xlower( p ) 
char xXpi 

{ 
register char *q; 
int C3 


for (q = p3 c = Xqs qt+ ) 
*Xq = tolower( c D3 
return( p05 
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meat WEL a- VHP, vIARVEMLTTDoat THF. HHEVSF A vVAbLHH?SY 
Prt nM RBOERAOTHERBRLTF SEW, 


ok mcat -~ save memory module <(s) 


“xk usage: mcat imodule). xs 


#include <stdio.h> 
#include <module.h> 


#define ERR (-1) 
#define ANY OG 
#define SOUT 1 


main(€ argc, argv > 
int argcs 
char **argv3 


char X*p3 
mod_exec *headers 


while ( --arge ) 
if ¢ ( header = modlink< p=*++argv, ANY, ANY ) ) 
fprintf( stderr, “can’t link ¥°%-S¥".¥n*, Pp )3 
returns 
) 
if ( write( SOUT, header, header->m_size ) == ERR ) 
exit ( errno )3 














¢ H mH. @..d 


attr DV YREIA MKF A- FRR SNTHOROOT, chmod &€ Bo TFS’. 
CEATLTY syYw sx] 9 COE Ts 


7k chmod -- look or set file attribute x7 
ra usage: chmod <opt> (file) <opt>. 
Opt: x : execution directory. 
-r o-nr = owner read. 
-w -nw ? owner write. 
-e -ne = Owner exec. 


-pr -npr+ pablic read. 

—pw -npw? pablic write. 

“pe -npe: pablic exec. 

-S -ns : sharable. 

-d -nd : directory. 

-a : suppress priting. xs 
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#include <stdio.h> 
#include <modes.h> 
#include <os9.h> 


#tdefine YES 1 

#define NO Oo 

#define ERR (-1) 

#def ine SUPERUSER 0 
#define DTRBF 1 


struct ( 
char dtp; 
char dum1(18]3 
Char att; 
char fd(3]3 
char dum2(9]3 
» pds 


struct { 
char perm; 
int owners 
) fdess 


char root(32]3 
int exec = NO: 
int suppress = NO; 
int cperm 03 
int nperm 03 


main(¢ argc, argv ) 
int argos 
char xxargvi 


FILE xfp, Xfopend s 
char Xp, xgetroot 05 
int Change, pn; 
union ( 

long lposs 

char cpos[4]5 
) fdpos; 


if ¢ ¢€ Change = option( argc, argv ) ) == ERR) ( 
usage 0 3 
returns 

} 

WEN Lec are. > 8 


if ( X(p=xX++argv) == °-” > 
continues 
if ( getoption( p ) == ERR 


exit¢ errno )3 
if ( pd.dtp != DTRBF > 
exit 214 73 


if ¢ € fp = fopen< getroot”« root, pds “re” > ) Be NULL Y ¢ 
fprintf¢ stderr, “can’t open ¥°%-S¥".¥n”, root 03 
returns 

) 

fdpos.cpos(0] = pd.fd(l0]3 

fdpos.cpos{1] = pd.fdl1]s 

fdpos.cpos(2] = pd.fdl2]5 

fdpos.cpos[3] = 03 

fseek( fp, fdpos.!pos, 0 ); 

if ( fread( &fdes, sizeof (fdes), 1, fp ) == NULL ) 


exit¢ errno )3 
if ( (cperm&S_IFDIR) && ! (fdes.perm&S_IFDIR) ) ¢ 
fprintf( stderr, “can’t change to directory.¥n” )3 
fclose( fp )3 
returns 
) 
if ( Change ) (¢ 
if ¢ (nperm&S_IFDIR) && (fdes.perm&S_IFDIR) && ownfilec p) ) ¢ 
fprintf( stderr, “the directory is not empty.¥n” )3 
fclose( fp )3 
returns 


) 
if ( Changeperm( fp, fdpos.|pos ) == ERR) ( 








fclose( fp )3 
return; 
) 
) 
fclose( fp )3 
if ( !suppress > 
putmode( fdes.perm&Oxff, 


int option( argc, argv ) 


int argc; 
char Xxargvi 


char xp; 
int Cc, not, mode; 
int Change = NO; 


while ¢ --arge ) { 
if ( *(@p=xk++argv) f= %-" ) 
continue; 
if ( €c = tolower( x++p ) ) 
suppress = YES; 


continues 

yy else. Mf Ce Sse "R* > 4 
exec = YES; 
continues 

) else 
Change = YES; 

Bir Ge RS Ut o) 4 






not YES3 

Cc = tolower( x++p )3 
) else 

not = NO; 


switch (ec) ¢ 
case 'r’: mode 
case *w’: mode 
case 'e’: mode 
case ’*p": 


uuu 


pPd3 


== a’) { 


S_IREAD; break; 
S_IWRITEs break; 
S.IEXEC; break: 


switch ( c = tolower( xX++p) ) 4 
case *r’: mode = S_IOREAD; break; 





case ’w’: mode 


S.IOWRITEs break; 


case ’e’: mode = S_IOEXEC; break; 


default: return¢ ERR )3 
) 


break; 


case 's’: mode = S_ISHARE; break; 


case ’d’: mode 
default: return( ERR )3 
) 
Lf -C keep p 
return¢ ERR )3 
else if ¢ not > 
nperm |= mode; 
else 
cperm |= mode; 
) 
return( change )i 


usage () 


( 


fprintf( stderr, * 

fprintf( stderr, “~ opt: -x 
fprintf<« stderr, ” -a 
fprintf ( stderr, ~ pa 
fprintf<¢ stderr, ” —woo=nw 
fprintf( stderr, ~ 8 he 
fprintf ( stderr, ~ 
fprintf<¢ stderr, ~ 
fprintf( stderr, 


fprintf<( stderr, ~ =s =n 


S_IFDIR3 break; 


usage: Chmod <opt> (file) <opt>.¥n” 03 


execution directory.¥n” )3 
suppress priting.¥n” 3 
owner read.¥n* )3 
owner write.¥n” > 
owner exec.¥n” )3 
> 


-pr -npr: pablic read.¥n~ )3 
—pwW -npwW? pablic write.¥n” )3 
~pe ~npe: pablic exec.¥n” )3 


= sharable.¥n” )3 
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fprintf ( stderr, ~ -d -nd : directory.¥n” )35 


char Xgetroot ( root, Pp) 
char xroot, x*p3 

{ 
FILE *fp, x*fopend 3 
struct registers reg; 


char *q3 
int C3 
q = roots 
Piet Xprse, "7" ) 
while ( (Cc = Xt#p) && CH= "7" ) 
Xqtt+ = C3 
Xqtt = 7O"S 
xq = *¥0"5 
b else if « exec) ( 
thuGet te = fopen¢ “ss “dx > 9 R= NULL > 4 


fprintf( stderr, “can’t open execution directory.¥n” )3 
return¢ ERR )3 
) 


reg.rg_x = root+l; 

reg.rg_a = fileno( fp 03 

reg.rg_b = SS_DEVNM; 

if ¢ .os9¢ I_GETSTT, &reg ) == ERR) { 


errno = reg.rge_b & Oxff; 
return(¢ ERR 03 

) 

fclose¢ fp 3 

shapename (¢ roott+! )3 


xroot = °7'3 
strcat( root, “@" )3 
) else 


strepy( root, “8° 03 


return( root 03 


shapename( p ) 


char pls 
( 
int is 
for PC i SoO8s 1 «29% 1449 


if ( pli] & Ox80) ¢ 
plil & Ox7f3 
plitt] = *¥075 
returns 


p(29] = °¥0"s 


int getoption( p ) 
char xpi 


int pn, modes 


mode = (exec)? S_IEXEC: 03 
if ( (pn=open(p,mode)) == ERR && (pn=open(p,mode+S_IFDIR)) == ERR 
&& (pn=open (p,mode+S_IFDIR+S_IREAD)) == ERR 
return( ERR )3 
if ( getstat( SS_OPT, pn, &pd ) == ERR) ( 
close¢ pn 03 
return¢ ERR )3 
) 
close¢ pn )3 
return( NO 03 
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int ownfile¢ p ) 
char *p3 

( 
FILE fp, X*fopend; 
char file(3213 


if ( ( fp = fopen¢ p, “d* ) ) == NULL ) 
exit¢ errno )3 
fseek¢ fp, 64L, 0 )3 
while ( fread( file, sizeof(file), 1, fp) ) 
if €*¥file. 4 
fclose( fp )3 
returnG YES.) 5 
) 
fcloset fp 23 
return( NO )35 


int Changeperm( fp, fdpos ) 
FILE *fp3 
long fdpos; 


int users 


if ( € user = getuidO ) != SUPERUSER && user != fdes.owner ) { 
fprintf( stderr, “you’re not owner or superuser.¥n” ) 3 
return( ERR )3 

) 

fdes.perm = (fdes.perm!cperm) &~nperms 

fseek( fp, fdpos, 0 )3 

if ( fwrite( &fdes, sizeof (fdes), 1, fp ) == NULL 
return( ERR )i 

return¢ NO )3 


Putmode( perm, p ) 
int perm; 
char xp3 


char line(9]3 
int flag, is 


strcpy( line, “dsewrewr”) 3 
for ( flag = 1, i = 73 i >= 03 i--, flag <<= 1) 
if ¢ ! (perm&f lag) ) 
lineliy = = "5 
printf ( “%s %s¥n*, Tine, p 3 








Is dir EMCI FRM EMH SET. FFT aM ha Db Om te RR ® 
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OSS: Is 
Motd 
Errmsg 
Dictionary 
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TankanjJ i 
password 


| eet Pras vEMUSEC LEK KORARMREHALET. 
COPT IMKENHSRMRNEOMRS DET, CHEF TANMOVYAADYbS ER 
LEOEF, BMOZ 74 VMRIYAADYSH MICH HM, KTKFS In aey ke 
LotTHMOVYARBHRUSECEMTMRTT. 


Osg:ls -ef 
directory of «. 17:11:57 

Owner Last modified attributes Ink sector bytecount name 

0.0 84/02/18 16:23 371 10f Motd 
84702718 16:23 374 c7d Errmss 
84702718 16:23 382 11 Dictivunary 
84707724 02:57 384 6c86 TankanJi 
84707702 20:30 3f2 8b password 








Coco 
oo0o°o 


7k Is -- list directory information */ 
7x usage: Is <opt> (file) <opt>. 


Opt? -x execution directory. 
mG; expand Output. 
Sf format for header. x7 


#include <stdio.h> 
#include <time.h> 


#define YES 1 
#define NO O 
#define ERR (-1) 


struct filedes ¢ 
char att: 
char ownl2]3 
char date[5]5 
j char |nk3 
long siz3 
char cret (3s 
My 


int exec = NO; 
int expand = NO; 
int format NO; 


Wil 


main( argc, argv ) 
int argcs 
char *xarav3 


char xpi 
int exists 


pflinit as 

if ( € exist = option( arac, argv ) ) == ERR) ¢ 
usage () 3 
returns 

» else if (« exist > 
while ¢ -~arge ) ( 


vo 


if ( *(p=xXt++argy) == "7 ) 
continues 

if ( expand && format >) 
dputheader ( p )3 

dis¢ pd 
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) 
else ( 
if (€ expand && format ) 
dputheader( ~.” )3 
CIS %* O55 


int Option< argc, argv ) 
int areces 
char *xargev; 


char xp; 
int exist = NO3 
int C3 


while € --arge ) ¢ 
if ¢€ ®(p=k++argv) == ’-’ ) 
while ( c = tolower( x++p ) ) 
switch (cc) 
case *x’: exec = YES3 break; 
case ’e’: expand = YES; break; 
case *f7: format = YES; break; 
default: return¢ ERR )3 
) 
else 
exist = YES: 
) 
return( exist 05 


usage © 
{ 


fprintf( stderr, “usage: Is <-xef> (fileldir) <-xef>.¥n” )3 
) 


dputheader ( p ) 
char xpi 
{ 
struct sgtbuf pack; 


getime( &pack )3 











pr iat < * directory of %-s %02d:%02d:%02d¥n" , 
Pp, pack.t_hour, pack.t_minute, pack.t_second) 3 
printf ~ Owner Last modified attributes ~ )3 
printf ¢ “Ink sector bytecount name¥n” 93 
priatdé( (=== Seraions peo cee! =~ ys 
printf ¢ 3 
} 
dis(€ p>) 
char Xp; 
A | 
static char root{32]3 
static char dirlBUFSIZ]3 
Static char filel32]5 
FILE xrfp, Xfp, x*fopend 3 
long pos, getinoded 3 
dirfile€ p, root, dir, file )3 
if ¢ (rfp = ¢ exec? fopen(root,“rx”): fopen(root,*r*) )» >) == NULL ) { 
fprintf( stderr, “can’t open ¥*%-s¥”.¥n”, root )35 
returns 
} . 
if ¢( fp = ¢ exec? fopen( p, “dx” ): fopen< p, “d* > >») ¢ 


Isdir( rfp, fe, pds 
fclose( fp )3 
) else ( 
if ¢ ¢ fp = ¢ exec? fopen(dir,”dx”): fopen(dir,”d”) ) ») == NULL) 1 
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fprintf( stderr, “can’t open ¥”%-S¥".¥n”, dir 03 
returns 
) 
if ¢ € pos = getinode< fp, file) ) == ERR) ( 
fprintf(¢ stderr, “can’t open ¥°%-S¥".¥n”, ps 
fclose¢ fp 3 
return 
) 
fclose¢ fp )3 
putinform( file, pos, rfp )3 
) 
fclose( rfp )3 


Isdir( rfp, fp, Pp) 
FILE *rfp, xfp35 


char *p3 
( 
union { 
long |lpos; 
char cposl4]5 
) poss 


char xshapename © 3 
static char dirl32]5 


fseek( fp, 64L, 0) 
while ¢ fread( dir, sizeof(dir), 1, fp) > 6 
if ( Xdir == *¥0" ) 


continue; 
pos.cpos(0] = dirl{29]5 
pos.cpos({1] = dirf{30]5 
pos.cpos(2) = dirf31]5 
pos.cpos(3] = 03 


shapename ( dir )5 
putinform( dir, pos.!pos, rfp 03 


dirfile¢ p, root, dir, file ) 
char Xp, xkroot, *dir, xfiles 
{ 
char xq, Xrindex 0 3 


xroot = *¥075 
if OC Xpvs= "7 > 
it © iqeeaindex<¢ prt, (4% 2 Qed 


kq = °¥0'5 
strcpy( root, p )$ 
Kq = 7775 

| 3 ) else 


strepy( root, p )$ 
) 
strcat( root, “@” )5 ) 
lf €q = rindex( p, 7% > > £ 
if Gp leq > 4 
¥q = °¥075 
strcepy( dir, p 5 
strepy( file, qtl 5 | 
Xq = °7'5 
) else { 
strepy<( dir, pi 
strepy¢ file, “.* os 
) 
) else { 
stropy( dir, “.” 03 
strepy( file, pds 


long getinode<¢ fp, p ) 
FILE xfp; 
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char xpi 


static char dir(32]3 
union { 
long lposs 
char cposl4]5 
) poss 
char x*shapename () 3 


while ¢ fread( dir, sizeof (dir), 1, fp) ) ¢ | 
if ¢ Xdir == ’¥0’ ) 
cont inues | 
pos.cpos{O] = dirf29]5 
pos.cpos{1] = dir(30]3 
pos.cpos(2] = dir(31]5 
pos.cpos[3] = 03 
if € equal ¢ Shapename( dir), p) ) 
return( pos. |pos )3 
) 
return( ERR )3s 


int equal ( p, q ) 
char *p, *q3 


int cl, c23 
for (3 ¢€ cl = Xp) && ( C2 = ¥q )i ptt, qt+ ) 
if ¢ tolower( cl ) != tolower( c2) ) 


return( NO )3 
return( !xp && !Xq )35 


char xshapename( p ) 


char p([Ii 
{ 
int 13 
etOm COs hs 208) ie) 


if ( plil & Ox80) ¢ 
pli] & Ox7fs 
plit+t1] = *¥0°s 
return( p 03 
) 
p29] = '¥0"s 
return( p )3 | 
| 


putinform( p, pos, rfp 
char xp3 
long pos; 
FIle. xr tps 
Static struct filedes fdes; 
Static char l|inel9]; 
int i, mask3 


fseek( rfp, pos, 0 )3 


if ( fread( &fdes, sizeof <fdes), 1, rfp) == NULL ) { 
fprintf( stderr, “read error.¥n* )3 
returns 


) 
if ¢ expand ). ¢ 
strepy¢ line, “dsewrewr” )35 


for ¢( mask = 1, i = 73 i >= O§ i--, mask<<=1 ) 
if ¢ ! (fdes.att&mask) > 
Minette" 


printf ( ~ %2d.%-2d %O2d/“%O2d“%O2d %O2Zd:%O02d %Ss %20d “%BIx %BIx ”, 
fdes.ownl[O]&0xff, fdes.ownl1]&0xff, 
fdes.datel(O]&0xff, fdes.datel1]&0xff, fdes.datel2]&0xff, 
fdes.date[3]&0xff, fdes.datel4]&0xff, line, 
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tt = 


fdes.Ink&Oxff, (pos>>8)&Oxffffff, fdes.siz 5 
) 
printf ( “%-s¥n", p35 








VyYDEM, LOOP TAMOREKMULTOF A VIAPVAZYPVORDILETT. 


OS9: In tankanji temp 


OS9: Ils -ef 
directory of . 17:39:18 
Owner Last modified attributes Ink sector bytecount name 





0.0 84702718 16:23 1 371 10f Motd 

0.0 84702718 16:23 | 374 c7d Errmse 
0.0 84702718 16:23 1 382 11 Dictionary 
0.0 842411729.17213 ---wr-we 2 384 6c86 TankanJ i 
0.0 84407702. 20530) areanss F 1 3f2 8b password 
0.0 84711729 17:13 ---wr-wr 2 384 6c86 temp 


tem OOF 7A MEMELT tem2e >MOBM CF rab YEYE YN) RH 
GCHET. 


OS9:In temp temp2 


OSS: ls +e 
0.0 84702718 16:23 ----r-wr 1 371 10f Motd 
0.0 6440218! 16529) (—-==r=sPr 1 374 c7d Errmss 
0.0 84702718. 16223 =s-=r=-r { 382 11 Dictionary 
0.0 84711729 17213 ---wr-wr 3 384 6c86 TankanJ i 
0.0 84707702 20:30 --~----- r 1 SEZ 8b password 
0.0 84711729 17213 ---wr-wr 3 384 6c86 temp 
0.0 B4711729 17213) -=-wr=wir 3 384 6c86 temp2 


YyPADYPRMIBATAZRBOELE. 

temp BHtempe2 RHA-Oe AF (Fer A MPHEAAPYVII) EHUTTHOET. 

del D7 YFCTBROVYARHO7A er TMOMRRIE CO REGA, TOKRB, 
re oz yr eR@A Ut Fe bt. 


OSS:rm temp 





OSS: Ils -e 
0.0 84/02/18 16:23 | 371 10f Motd 
0.0 84702718 16:23 1 374 c7d Errmss 
0.0 84702718 16:23 1 382 11 Dictionary 
0.0 84711729 17:17 2 384 6c86 TankanJ i 
0.0 84707702 20:30 1 Sf2 8b password 
0.0 84711729 17:17 2 384 6c86 temp2 








7k In -- link file to another one x7 
7% usage: In fromfile tofile. */ 
#include <stdio.h> 

#include <modes.h> 

#include <os9.h> 

#define YES 1 


#define NO O 
#define ERR (-1) 


struct 4 


char 
char 
char 
char 


dtp; 

dum1 (1913 
#d(313 
dum2(91]3 


) pds 


struct { 
char atti 
int owns 
char date(5]s 
char |nk3 
long sizs 
char cret(3]5 
) fdess 


char dir(32]3 
char xnewfiles 


main( argc, argv ) 


int 
char 


int 


argcs 
*kKAarBVG 


pens 


char *sepname ©, *shapename 0 § 


if ¢( arec 1= 3) ¢ 


fprintf(stderr, “usage: In fromfile tofile.¥n” 


returns 
H 
if © (pn=open(argv(2],0)) != ERR |! (pn=open (argv[2],0x80)) 
close¢ pn di 
exit¢ 218 )3 7k file already exist */ 
) 
if ( chdir¢ sepname( argv(2] ) ) == ERR > 
exit ¢ errno )3 
if ( linkfdes¢ argv[1J] ) == ERR) 


exit¢ errno )3 


if ¢ (pn = open( ~.”, S_IFDIR+S_IREAD+S_IWRITE ) 
fprintf( stderr, “can’t open ¥°%-s¥*.¥n", 


returns 

} 

dirmake¢ dir, newfile 03 

if ¢( direntry( pn) == ERR I! write¢ pn, 
close( pn )5 
exit ( errno )5 

} 

close¢ pn) 


char xshapename( p ) 


char plli 
( 
int 13 
for «I 5.0% f¢ 205 fee > 
if ( pli] & Ox8O0) 1 
pli] &= Ox7f3 


plitt] = °¥0'5 


shapename ( argv[2] ) 


sizeof (dir) 
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int 


it 8 


return( p )3 
) 
p(29] = *¥0'5 
return( p )3 


direntry( pn ) 
int pn3 


static char dirl32]3 
long Iseek Oi; 
int ons 


Iseek( pn, 64L, 0 D3 
while ( n = read¢ pn, 
if € n == ERR) 
return¢ ERR ) 
else if (¢ Xdir == 
Iseek( pn, -3 
break; 
) 
) 
return( NO )3 


char xsepname( p ) 


( 


char xp; 
char Xnewdir, x*rindex 


if ( newfile = rindex 


xnewfiler+ = *¥0’5 





*¥O" ) 
newdir = 7.75 
newdir = pi 


newdir = ~.73 
newfile = ps 
H 
return( newdir )3 


dirmake( dir, p ) 


{ 


int 


char dirll, xp3 
iat a 


LOR ELBE Og ENS 
dirlil = °¥0’; 


dir, sizeof (dim > 


*¥O” }. 4 
Zen 1 Os 


Os 


Cpe 74" 9 


5 


itt) 


for ¢ i = O03 i < 29 && ¢ dirlil 


dirli-1] = Ox803 

dirl29] = pd.fdl0]3 
dir(30) = pd.fdl1)3 
dirf{31] = pd.fdl2]3 


linkfdes( p > 
char Xp3 
union ¢ 
long |pos; 
char cpos(4]3 
) fdpos; 
long Iseek 03 
int pn3 


) 


{ 


xp )3 





) 


prt, 


{ 


i++ 


) 


if ¢ € pn = open( p, S_IREAD ) ) 
return¢ ERR )3 

( getstat ( SS_OPT, 
close( pn )5 


exit ¢ errno 


if pn, &pd ) 

3 

) 

close¢ pn )3 

fdpos.cpos{0] 

fdpos.cpos(1] 

fdpos.cpos(2] pd. fd(2]3 

fdpos.cpos{[3] = 03 
if ¢ € pn = open¢ 

return( ERR )3 
lseek (pn, fdpos. |pos,0) ==ERR 

close¢ pn )3 

return¢ ERR )3 


pd.fdl0]3 
pd.fdl1]3 


Hou 


"8", 


if € 


} 

fdes.|Inkt++3 

if ¢ |seek (pn,fdpos. |pos,0) ==ERR 
close( pn )3 
return¢ ERR )3 

} 

close¢ pn 3 

return( NO )3 


S_IREAD+S_IWRITE > > 


ERR ) 


ERR) { 


ERR ) 


read (pn, &fdes,sizeof (fdes))==ERR ) 


write (pn, &fdes,sizeof (fdes))==ERR ) 








rom 
7k rm -- remove files) */ 
ok usage: rm (file). x/ 


#tinclude <stdio.h> 
#include <modes.h> 
#include <os9.h> 


#define YES 1 
tdefine NO 0 
#define ERR (-1) 


struct ( 
char 
char 
char 
char 
long 
char 

} pds 


dtp; 
dumi(1933 
fd(3]5 
dfd(3]5 
dep; 
dvt (205 


struct 
char 
int 
char 
char 
longs 
char 

) fdes; 


atts 
owns 
date(5]i 
Inks 
Sizs 
cret(3]3 


char root (3215 


main¢ argc, argv ) 
int argcs 


char *xkargvi 


7* directory entry offset x*~ 


{ 
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long |seek 05 
int rpn, pn, Cclnks 
char Xp, XgetrootQ, *getdir ds; 








while € --argac > ( 
if © Crpn = open( getroot( root, p ), S-IREAD+S_IWRITE ) ) == ERR) ( 
fprintf( stderr, “can’t open ¥°%-S¥".¥n”, root )5 
returns 
) 
if © (pn = open( p=*+t+argv, S_IWRITE ) > == ERR) ( 
fprintf ( stderr, “can’t open ¥°%-S¥".¥n", p di 
returns 
) 
if © © clink = uninkfdes( ren, pn) ) == ERR) ¢ 
close¢ pn )3 
fprintf( stderr, “can’t unlink ¥°%-S¥".¥n7, p 3 
exit ( errno )5 
) 
close¢ pn 35 
close¢ rpn )3 
if ( fdes.Ink == 0) ¢ 
if ¢ unlink¢ p ) == ERR) 
exit (errno )3 
Yrelse 4 
if ¢ (pn = open  getdir(root,p), S-IFDIR+S_IWRITE ) ) == ERR) ¢ 
fprintf( stderr, “can’t open ¥°%-S¥".¥n”, root )5 
returns 
) 
if ¢ lseek(pnypd.dcep,0) == ERR 11 write (pn,“¥0",1) == ERR) ( 


fprintf( stderr, “can’t delete direcory entry.¥n” 93 
close( pn )3 
returns 

) 

close¢ pn di 


char Xgetroot( root, Pp ) 
char x*root, xpi 


int Ca da 
if (Xp == 77?) 
xroot = °7°5 
for ¢ i = 13 i < 30 && ¢€ cc = p++ ) S& © I= 7475 i++) 
rootlil C3 





rootti] = °@'s | 
rootlit1] = *¥0°S 
» else 
strepy( root, “@" 03 
return( root )3 


char xXgetdir¢ root, Pp) 
char xroot, Xp 
{ 


char Xq3 
te = rindex¢p, "7? )) ¢ 
if Cp beoq) 
xq = *¥0"5 
strepy( root, Pp )5 
) else 


strepy( root, ~.” 03 
return( root )3 


int unlnkfdes( ren, pn) 





int rpn, pni 


union { 
long Ipos3 
char cpos(4]5 

) fdpos; 

if « getstat( SS_OPT, pn, &pd ) == ERR > 
return¢ ERR )3 

fdpos.cpos(0) = pd.fdf0]; 

fdpos.cpos{1] = pd.-fdt1ls 

fdpos.cpos{2] = pd. fdl2]s 

fdpos.-cpos[3] = 03 


if ¢ lseek (rpn, fdpos.!pos,0)==ERR !1 read (rpn,&fdes,sizeof (fdes)) ==ERR 
return( ERR )3 
if ¢ --fdesslnk > 4 
if (iseek (npn, fdpos. |pos,0) ==ERRI Iwrite (ren, &fdes,sizeof (fdes)) ==ERR) 
return( ERR )3 
) 
return¢ fdes.Ink & Oxff 035 
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£ i nm 


RAO find LOU COMME MRLTHOET. Trt VORRORMH C | C 
2-¥FHBSELUBHEBETSCEMTEET. NYT y SD 7 t VE (ED BFK 
fl tT. 


7x find &> kind tite x7 
ok usage: find <opt> file <opt>. 
opt: -r=DIR start directory. 
-a all. 
-u=l user id. 
-d=yy’mm/dd’hh7mm after the date&time. x7 


#include <stdio.h> 


#define YES 1 
#define NO 0 
f#tdefine ERR (-1) 


int all = NO; 

int done = NOs 

int group = ERR; 

int user = ERR; 

char date[5j3 

char xroots 

char path! ist (BUFSIZ15 
FILE xatfps 


main( arac, argv > 
int argcs 
char xxargv; 


FILE xfopend 3 
char xpi 


if ¢ option(¢ argc, argv >) == ERR) ¢ 
usage © 3 
returns 


) 
while ( --argc ) ¢ 
if ( X(p=xX++argy) == *=" ) 
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cont inues 
bf, C.FOOt 2 
chdir¢ root )3 


if ¢ ( atfp = fopen( “6°, “r” ) ) == NULL) ¢ 
fprintf( stderr, “can’t open ¥°O¥*.¥n7 03 
returns 

) 

find( pds 


fclose( atfp )3 


usage () 
{ 
fprintf<( stderr, “usage: find <opt> file <opt>.¥n” 03 
fprintf( stderr, ~ opt: -r=DIR start directory.¥n” )5 
fprintf ( stderr, -a all.¥n” 03 
fprintf( stderr, -u=1 user id.¥n” )3 
fprintf(¢ stderr, ~ -d=yy/mm/dd“hh’mm after the date&time.¥n” )3 


int option( argc, arav ) 
int arge; 
char **argvi 


char Xp, Kqi 
PNG. Ci ae 


White: iG SRAr soi diert 
if ( ®(Qp=xk+t+argv) != 7-" ) 
continues 
switch ( Cc = X+t+p ) { 
case *r': 
case ’R’: 
root = ( kt+p == °=" )? ++p! pi 
breaks 
case *a’: 
case *A’: 
all = YES3 
break; 
case ’u’: 
case *U’: 
p= ( ¥t+p == °=? 9? +4p: ps 
if <q = tndex¢ ps %* ) ) 
if € Xp fata > 
group = atoi( p )3 
if € k#+q != *¥0" ) 
user = atoi(q)i 
» else { 
group = ( (c=atoi(p)) >> 8) & Oxffs 
user = Cc & Oxffs 
) 





break; 
case ‘d’: 
case ’D’: 
if ¢€ strien( p= (kt+p=='’=") ?+#+pip ) == 14 ) 
for ¢ i = 03 i < Ss i++, p += 3) 
dateliJ] = (kp~’0°)*10 + (p[1]-’0")3 
else 
return¢ ERR )3 
break; 
default: 


return( ERR )3 
) 
) 
return¢ NO )3 


find( p ) 
char xpi 
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FILE *fp, *fopend 3s 
char xshapename 0, *ptappend©, xptdeleted 
static char dir(32]; 
static union ( 
long inode; 
char pointl4 ys 
i ips 


if € ¢ fp = fopen¢ “.", “d” ) >) == NULL 
returns 

fread( dir, sizeof(dirm), 1, fp d3 

fread( dir, sizeof(dir), 1, fp )3 

while ( fread( dir, sizeof(dir), 1, fp >) ) ¢ 
if € Xdir == *¥0’ ) 

continues 

ip-point(O] = dirl29]3 





ip-point(t] dirfl30]3 
ip-point(2] = dirf{31]5 
ip-point(3] = 03 


if ( match( shapename( dir ), p ) && elsematch( ip.inode ) ) ( 
Putpath( root, pathlist, dir )3 
if Clall > 4 
done = YES; 
break; 
) 
) 
if ( chdir¢ dir >) != ERR) ({ 
ptappend( pathlist, dir )3 
find¢ pd3 
ptdelete( pathlist )5 
chdir¢ “..” )3 
) 
if ¢ done ) 
break; 
) 
fclose( fp 03 


char sxshapename ( p ) 


char xp; 
( 
int i 
FOP dos O34 6-293) j44--) 


if € plil & Ox80) { 
pli] &= Ox7fi 
plit1] = °¥0’; 
return( p )3 
} 
p(29] = °¥0°3 
return( p )3$ 


Putpath( root, pathlist, dir ) 
Char xroot, Xpathlist, *dirs 
{ 
if ¢ kroot ) ¢ 
fputs( root, stdout )3 
putchar(¢ ’7* )3 
) 
if ( Xpathlist ) { 
fputs( pathlist, stdout )$ 
putchar( °7"? )3 
) 
puts( dir )3 


Char Xptappend( pathlist, p ) 
char *pathlist, *pi 
{ 
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if ( Xpathlist ) ( 
strcat( pathlist, “7% 03 
streat( pathlist, p>3 
) else 
strcepy( pathlist, pd: 
return( pathlist 93 


char xptdelete( pathlist ) 
char xpathlist; 

4 
char xp3 


*¢ (p=rindex(pathlist,’7’))? pt pathlist ) = 
return( pathlist )3 


int elsematch( inode ) 
long inode; 


static struct { 

char att, ownl2], dat(5], Ink; 
) fds 
int i, dl, d23 


fseek( atfp, (long) inode, 0 )3 


if ( fread( &fd, sizeof (fd), 1, atfp )») == NULL > 


return¢ NO 3 


if ¢ group != ERR && group != (fd.ownlO]&0Oxf f> 
return¢ NO )3 
if ¢ user != ERR && user != (fd.ownl1]&0xff) 


return¢ NO )3 
if (¢€ date(O] ) 
fOr | = OF 1 SF per 5 


if € (dl=datelil&Oxff) <« (d2=fd.datlil&Oxff) 


return( YES )3 
else if (di > d2) 
return( NO )3 
return( YES )3 
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